有的程序需要现在同一时间只能运行一个,这种需求可以用锁的方式来实现,在START-OF-SELECTION 事件后加锁,如果是加锁成功,说明还没有程序在执行,如果是加锁失败,则说明已经有同名程序在运行,报错即可。
注:这个锁是借用程序修改的锁,在SE38修改程序的时候也会加这个锁。
程序如下:
START-OF-SELECTION.
CALL FUNCTION 'ENQUEUE_ESRDIRE'
EXPORTING
name = sy-repid
_scope = '1'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
"说明已经有程序在运行了。
ENDIF.