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.