LOCK & UNLOCK OBJECTS IN ABAP SAP

 

INPUT SCREEN

OUTPUT SCREEN

 
REPORT ZLOCKUNLOCK.
TABLES: TRDIR.
PARAMETERS: PROGRAM LIKE TRDIR-NAME OBLIGATORY.
PARAMETERS: EDITOR LIKE TRDIR-EDTX.
SELECT SINGLE * FROM TRDIR WHERE NAME = PROGRAM.
TRDIR-EDTX = 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.