*&---------------------------------------------------------------------*
*& Report Z08_01
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z08_01.

CALL FUNCTION 'ENQUEUE_EZ_ZEMPLIST'
  EXPORTING
    mode_zemplist  = 'E'
    mandt          = sy-mandt
    empcd          = '1002'
    x_empcd        = ' '
    _scope         = '2'
    _wait          = ' '
    _collect       = ' '
  EXCEPTIONS
    foreign_lock   = 1
    system_failure = 2
    OTHERS         = 3.

IF sy-subrc EQ 0.
  WRITE : 'Data lock success'.
ENDIF.