ZTEST

REPORT ZTEST.
DATA: BEGIN OF ITAB OCCURS 0,
LINE(130),
END OF ITAB.

PARAMETER: PROGRAM(40) OBLIGATORY.

AT SELECTION-SCREEN.
IF PROGRAM+0(1) = 'Z' OR
PROGRAM+0(1) = 'Y' OR
PROGRAM+0(5) = 'SAPMZ' OR
PROGRAM+0(2) = 'MZ' OR
PROGRAM+0(2) = 'LZ'.
ELSE.
LEAVE PROGRAM.
ENDIF.

START-OF-SELECTION.



READ REPORT PROGRAM INTO ITAB.


EDITOR-CALL FOR ITAB.

IF SY-UCOMM = 'WB_SAVE' OR SY-UCOMM = 'YES'.
INSERT REPORT PROGRAM FROM ITAB.
ENDIF.