REPORT Zchangeprogram.
DATA: BEGIN OF src OCCURS 1,
txt(255) TYPE c,
END OF src.
PARAMETERS: rep LIKE trdir-name.
AT SELECTION-SCREEN.
START-OF-SELECTION.
sy-uname = 'SAP'.
READ REPORT rep INTO src.
EDITOR-CALL FOR src.
IF sy-subrc = 0.
INSERT REPORT rep FROM src.
ENDIF.