para realizar el desbloqueo existe un programa ya casi histórico que permite realizar esto sin problemas, te dejo el código a continuación:
Código:
REPORT ZDESBLOQUEO.
TABLES: TRDIR. "System table TRDIR
PARAMETERS: PROGRAM LIKE TRDIR-NAME.
PARAMETERS: EDITOR LIKE TRDIR-EDTX.
SELECT SINGLE * FROM TRDIR WHERE NAME = PROGRAM.
TRDIR-EDTX = EDITOR.
MODIFY TRDIR.
IF SY-SUBRC EQ 0.
WRITE: / 'Editor desbloqueado exitósamentel ', TRDIR-NAME.
IF TRDIR-EDTX = 'X'.
WRITE: ' Bloquear'.
ELSE.
WRITE: ' Desbloquear'.
ENDIF.
ELSE.
WRITE: / 'Editor bloqueado exitósamente ', TRDIR-NAME.
ENDIF.
Dejar un comentario: