The following report is used to remove the 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.
| < Prev | Next > |
|---|