If you wish to Lock or UnLock a program Editor Lock it can be done by the program given below. The SAP System Table TRDIR has a field called EDTX which is basically the EDITOR lock filed. Edit Lock facility is given in the PROGRAM ATTRIBUTES. The EDITOR LOCK is a check box given in the PROGRAM ATTRIBUTES. If this field is SET then the program gets locked and if this is Unchecked the the program is unlocked.
If the EDITOR lock is ON then only the program's author user who has created the program can edit it. Please find the program below.
**************************************************************
* ABAPLOVER.BLOGSPOT.COM *
* Editor Lock *
* *
**************************************************************
* Table Declaration
TABLES: TRDIR. "System table TRDIR
*Parameters--------------------------------------------------*
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 update Successful ', TRDIR-NAME.
IF TRDIR-EDTX = 'X'.
WRITE: ' Lock'.
ELSE.
WRITE: ' UnLock'.
ENDIF.
ELSE.
WRITE: / 'Editor Lock update Unsuccessful ', TRDIR-NAME.
ENDIF.