列出LOCK清单，判断某条记录是否被锁定

  REPORT  Z_BARRY_TEST.

DATA: IT_ENQ TYPE STANDARD TABLE OF SEQG7 WITH HEADER LINE.
TYPES: BEGIN OF TY_BIN_LOCK ,
         MANDT LIKE LAGP-MANDT ,
         LGNUM LIKE LAGP-LGNUM ,
         LGTYP LIKE LAGP-LGTYP ,
         LGPLA LIKE LAGP-LGPLA ,
      END OF TY_BIN_LOCK.
DATA: HS_BIN_LOCK TYPE HASHED TABLE OF TY_BIN_LOCK
                    WITH UNIQUE DEFAULT KEY WITH HEADER LINE.

CALL FUNCTION 'ENQUE_READ2'
  EXPORTING
    GNAME  = 'LAGP' "表名
    GUNAME = ''     "用户
  TABLES
    ENQ    = IT_ENQ.

LOOP AT IT_ENQ .
  HS_BIN_LOCK = IT_ENQ-GARG.
  COLLECT HS_BIN_LOCK.
ENDLOOP.

READ TABLE HS_BIN_LOCK WITH TABLE KEY MANDT = SY-MANDT LGNUM = '****' LGTYP = '****'
                                      LGPLA = '****' TRANSPORTING NO FIELDS.
IF SY-SUBRC = 0 .
  "LOCKED
ENDIF.