EPORT ZII_LOCKUNLOCKED .
* Table Declaration
TABLES: TRDIR. "System table TRDIR
Parameter: P_PROG LIKE TRDIR-NAME,
P_EDITOR LIKE TRDIR-EDTX.
* Select the entered Program
SELECT SINGLE * FROM TRDIR WHERE NAME =P_PROG.
* Set/Remove the lock
TRDIR-EDTX = P_EDITOR.
MODIFY TRDIR.
IF SY-SUBRC EQ 0.
WRITE: / 'Editor Lock updateSuccessful ', TRDIR-NAME.
IF TRDIR-EDTX = 'X'.
WRITE: 'Lock'.
ELSE.
WRITE: 'UnLock'.
ENDIF.
ELSE.
WRITE: / 'Editor Lock updateUnsuccessful ', TRDIR-NAME.
ENDIF.
选择屏幕上的按钮不选就是解锁。
要是解锁ADD-ON表就用SM12