ABAP程序运行锁定
1. create a Table ZRUNNING_LOCK (tcode:se11)
fields: MANDT , PROGNAME
2. create Lock object EZRUNLOCK (tcode:se11)
短文本 程序运行锁
3. 如果需对程序加锁，则在程序中执行
perform do_lock
4. 如果需对程序解锁，则在程序中执行
perform release_lock
————————————————————–
DEQUEUE_EZRUNLOCK 释放对象 EZRUNLOCK 的锁定
ENQUEUE_EZRUNLOCK 对象 EZRUNLOCK 要求的锁定
*&———————————————————————*
*& Include ZILOCKFUN01
*&———————————————————————*
* 程序运行锁, 控制同一时间只有一个程序在运行
*———————————————————————-
*&——————————————————————–*
*& Form do_lock
*&——————————————————————–*
* 提交一个锁定
*———————————————————————*
* –>PI_PROGNAME 程序名
* –>PI_WAIT 是否等待
* –>PI_SHOW_MSG 是否显示消息
* –>PO_SUBRC 返回状态
* –>PO_MSG 返回的消息
*———————————————————————*
FORM do_lock USING pi_progname TYPE progname
pi_wait TYPE c "X=waiting
CHANGING po_subrc TYPE c "0=OK,非0=Error
po_msg TYPE text100.
CALL FUNCTION ‘ENQUEUE_EZRUNLOCK’
EXPORTING
mode_zrunning_lock = ‘E’
mandt = sy-mandt
progname = pi_progname
* X_PROGNAME = ‘ ‘
* _SCOPE = ’2′
_wait = pi_wait
* _COLLECT = ‘ ‘
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
po_subrc = ’1′.
IF sy-subrc = 1.
CONCATENATE ‘另一用户’ sy-msgv1 ‘正在运行该程序!’ INTO po_msg
SEPARATED BY space.
ELSE.
po_msg = ‘锁定该程序时出错!’.
ENDIF.
ELSE.
po_subrc = ’0′.
ENDIF.
ENDFORM. "do_lock
*&——————————————————————–*
*& Form release_lock
*&——————————————————————–*
* 释放锁定
*———————————————————————*
* –>PI_PROGNAME 程序名
*———————————————————————*
FORM release_lock USING pi_progname TYPE progname.
CALL FUNCTION ‘DEQUEUE_EZRUNLOCK’
EXPORTING
mode_zrunning_lock = ‘E’
mandt = sy-mandt
progname = pi_progname
* X_PROGNAME = ‘ ‘
* _SCOPE = ’3′
* _SYNCHRON = ‘ ‘
* _COLLECT = ‘ ‘
.
ENDFORM. "release_lock
