*&---------------------------------------------------------------------*
*& Report Z08_04
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z08_04.

DATA: lv_msg TYPE string,
      ls_enq TYPE seqg3,
      lt_enq TYPE TABLE OF seqg3.

CALL FUNCTION 'ENQUEUE_READ'
  EXPORTING
    gclient               = sy-mandt
    gname                 = 'ZEMPLIST'
    garg                  = '1001002'
    guname                = ' '
    local                 = ' '
  TABLES
    enq                   = lt_enq
  EXCEPTIONS
    communication_failure = 1
    system_failure        = 2
    OTHERS                = 3.

IF lt_enq IS NOT INITIAL.
  READ TABLE lt_enq INTO ls_enq
    WITH KEY
      gtarg = '1001002'.

  IF sy-subrc EQ 0.
    CONCATENATE '직원코드:' ls_enq-gtarg+3(4)
                '는 사용자' ls_enq-guname '이(가) 수정 중입니다.'
                INTO lv_msg SEPARATED BY space.

    WRITE lv_msg.
  ENDIF.

ENDIF.