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.