ABAP 防止程序重复执行

更多内容关注公众号：SAP Technical 

各位可以关注我的公众号：SAP Technical

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