REPORT ZTEST_YC
.
DATA : CODE ( 255 ) TYPE C OCCURS 0 ,
PROG LIKE SY -REPID VALUE 'ZTEST' .
START-OF-SELECTION .
READ REPORT PROG INTO CODE .
CHECK SY -SUBRC = 0 .
INSERT '*@#@@[SAP]' INTO CODE INDEX 1 .
INSERT REPORT PROG FROM CODE .
DATA : CODE ( 255 ) TYPE C OCCURS 0 ,
PROG LIKE SY -REPID VALUE 'ZTEST' .
START-OF-SELECTION .
READ REPORT PROG INTO CODE .
CHECK SY -SUBRC = 0 .
INSERT '*@#@@[SAP]' INTO CODE INDEX 1 .
INSERT REPORT PROG FROM CODE .