ZBlog学习笔记

CALL FUNCTION 'ENQUEUE_ES_PROG'
  EXPORTING
    MODE_TRDIR     = 'E'
    NAME           = 'ZMMM0002'
    X_NAME         = ' '
    _SCOPE         = '2'
    _WAIT          = ' '
    _COLLECT       = ' '
  EXCEPTIONS
    FOREIGN_LOCK   = 1
    SYSTEM_FAILURE = 2
    OTHERS         = 3.
IF SY-SUBRC <> 0.
  WRITE '当前程序执行中!'.
  EXIT.
ENDIF.

上锁之后，退出程序时系统会自动解除锁定状态，也可以调用DEQUEUE_ES_PROG进行解锁。