The lock in an ABAP program is defined in table TRDIR, field EDTX. You must
change the value 'X' by ' '.
Use the following example program to unlock your program editor lock:
REPORT sy-repid.
TABLES: TRDIR.
PARAMETERS: P_PROG LIKE TRDIR-NAME OBLIGATORY.
START-OF-SELECTION.
SELECT SINGLE * FROM TRDIR WHERE NAME = P_PROG.
IF SY-SUBRC = 0.
IF TRDIR-EDTX = 'X'.
MOVE ' ' TO TRDIR-EDTX.
MODIFY TRDIR.
WRITE: /'Editor Lock was removed from', P_PROG.
ELSE.
WRITE: /'Program', P_PROG, 'does not have an Editor Lock'.
ENDIF.
ELSE.
WRITE: /'No match found for program', P_PROG.
ENDIF.
