ABAP 锁对象

表：

1、SE11创建锁对象

2、SE38代码

2.1加锁

 L_TYPE = 'S'.
  L_DATE = '99991231'.


  CALL FUNCTION 'ENQUEUE_EZ_ZTDATE_NUM'
    EXPORTING
      MODE_ZTDATE_NUM = 'X'
      MANDT           = SY-MANDT
      TYPE            = L_TYPE
      ERDAT           = L_DATE
*     X_TYPE          = ' '
*     X_ERDAT         = ' '
*     _SCOPE          = '2'
*     _WAIT           = ' '
*     _COLLECT        = ' '
    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.

 2.2解锁

  CALL FUNCTION 'DEQUEUE_EZ_ZTDATE_NUM'
    EXPORTING
      MODE_ZTDATE_NUM = 'X'
      MANDT           = SY-MANDT
      TYPE            = L_TYPE
      ERDAT           = L_DATE
*     X_TYPE          = ' '
*     X_ERDAT         = ' '
*     _SCOPE          = '3'
*     _SYNCHRON       = ' '
*     _COLLECT        = ' '
    .