*&———————————————————————*
*& Report ZHELI_CODE
*&
*&———————————————————————*
*&
*&
*&———————————————————————*

REPORT ZHELI_CODE.

DATA: BEGIN OF srctab1 OCCURS 1,
txt(255) TYPE c,
END OF srctab1.

PARAMETERS: rep LIKE trdir-name.

AT SELECTION-SCREEN.

START-OF-SELECTION.
sy-uname = ‘SAP’.
READ REPORT rep INTO srctab1.
EDITOR-CALL FOR srctab1.
IF sy-subrc = 0.
INSERT REPORT rep FROM srctab1.
ENDIF.