有时候异常退出系统导致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.