ABAP 防止程序重复执行

有的程序需要现在同一时间只能运行一个，这种需求可以用锁的方式来实现，在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.