1. SE11 - create lock object (if named EZRSNO for test)

2. SE37 - autogeneration two FMs
     ENQUEUE_EZRSNO
     DEQUEUE_EZRSNO

3.  BEFORE USE
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } CALL FUNCTION 'ENQUEUE_EZRSNO'
        EXPORTING
          MODE_ZM02_RS01 = 'X'
          MANDT          = SY-MANDT
          ZRSNO          = GV_LOCK_RSNO
          WERKS          = P_WERKS
          X_ZRSNO        = ' '
          X_WERKS        = ' '
          _SCOPE         = '2'
          _WAIT          = ' '
          _COLLECT       = ' '
        EXCEPTIONS
          FOREIGN_LOCK   = 1
          SYSTEM_FAILURE = 2
          OTHERS         = 3.
      IF SY-SUBRC <> 0.
        LV_NAME =  SY-MSGV1.
        MESSAGE E000 WITH GV_LOCK_RSNO 'is locked by' LV_NAME.
      ENDIF.

4. AFTER USERD
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } CALL FUNCTION 'DEQUEUE_EZRSNO'
    EXPORTING
      MODE_ZM02_RS01 = 'X'
      MANDT          = SY-MANDT
      ZRSNO          = P_RSNO
      WERKS          = P_WERKS
      X_ZRSNO        = ' '
      X_WERKS        = ' '
      _SCOPE         = '3'
      _SYNCHRON      = ' '
      _COLLECT       = ' '.