ABAP 锁全表 读锁

*&---------------------------------------------------------------------*
*& Report  ZTEST_LOCK2
*& 概要：实现提示锁占用的用户名
*&---------------------------------------------------------------------*
*& CREAT BY SAP_MAO
*&
*&---------------------------------------------------------------------*

REPORT ZTEST_LOCK2.

DATA:RAW_ENQ TYPE TABLE OF SEQG7.
DATA:LW_ENQ_READ TYPE SEQG7.
*----- 锁全表
CALL FUNCTION 'ENQUEUE_E_TABLE'
  EXPORTING
    MODE_RSTABLE   = 'E'
    TABNAME        = 'MARA'
    VARKEY         = '000000000000000002'
  EXCEPTIONS
    FOREIGN_LOCK   = 1
    SYSTEM_FAILURE = 2
    OTHERS         = 3.

IF SY-SUBRC <> 0.
*----- 加锁失败，读锁，获取锁信息
  CALL FUNCTION 'ENQUE_READ2'
    EXPORTING
      GCLIENT = SY-MANDT
      GUNAME  = '*'
    TABLES
      ENQ     = RAW_ENQ.

  LOOP AT RAW_ENQ INTO LW_ENQ_READ
  WHERE GNAME EQ 'RSTABLE'
  AND  GARG CS 'MARA'.  " CS：包含
    WRITE:LW_ENQ_READ-GUNAME. " 占用锁用户
  ENDLOOP.

ENDIF.