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:
PARAMETERS: P_PROG LIKE TRDIR-NAME OBLIGATORY.
SELECT SINGLE * FROM TRDIR WHERE NAME = P_PROG.
IF SY-SUBRC = 0.
IF TRDIR-EDTX = 'X'.
MOVE ' ' TO TRDIR-EDTX.
WRITE: /'Editor Lock was removed from', P_PROG.
WRITE: /'Program', P_PROG, 'does not have an Editor Lock'.
WRITE: /'No match found for program', P_PROG.