ABAP 如何对程序进行加锁

有时候程序需要在同一时间内只能运行一个，这种需求就可以用锁的方式来实现，通过ENQUEUE_ESRDIRE 函数去进行加锁，如果加锁成功，说明还没有程序在执行，如果是加锁失败，则说明已经有同名程序在运行，报错即可。

核心代码：

  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.

效果图为：

只要将上面的代码放在程序你想加锁的位置，一旦有人运行该段代码，同一时间第一个使用时将会锁定该程序，其他人将无法使用。