编辑删除SM12锁记录

有时候异常退出系统导致SM12锁记录未能清空,而又无删除权限的情况下, 可用如下代码删除某个用户的锁记录.

DATA: it_enq TYPE TABLE OF seqg3,
      lv_rc  TYPE sy-subrc,
      lv_cnt type i.

CALL FUNCTION 'ENQUEUE_READ'
  EXPORTING
    guname = 'USERNAME'
  TABLES
    enq    = it_enq
  EXCEPTIONS
    OTHERS = 0.

DESCRIBE TABLE it_enq LINES lv_cnt.

CHECK lv_cnt > 0.

CALL FUNCTION 'ENQUE_DELETE'
  EXPORTING
    suppress_syslog_entry = 'X'
  IMPORTING
    subrc                 = lv_rc
  TABLES
    enq                   = it_enq.


COMMIT WORK AND WAIT.

IF lv_rc = 0.
  WRITE 'OK'.
ELSE.
  WRITE 'ER'.
ENDIF.