- Short Code
DATA : gi_code TYPE TABLE OF string.
PARAMETERS: pa_prog LIKE sy-repid.
READ REPORT pa_prog INTO gi_code.
IF sy-subrc = 0.
INSERT '*@#@@[SAP]' INTO gi_code INDEX 1.
INSERT REPORT pa_prog FROM gi_code unicode enabling 'X'.
ENDIF.
- Long Code
DATA: gi_code TYPE TABLE OF string,
gi_code2 TYPE TABLE OF string,
gw_code TYPE string.
PARAMETERS: pa_prog LIKE sy-repid.
START-OF-SELECTION.
READ REPORT pa_prog INTO gi_code.
IF sy-subrc NE 0.
MESSAGE e398(00) WITH 'Report/Program' program 'not found.'.
ENDIF.
READ TABLE gi_code INDEX 1 INTO gw_code.
APPEND '*@#@@[SAP]' TO gi_code2.
LOOP AT gi_code INTO gw_code.
APPEND gw_code TO gi_code2.
ENDLOOP.
INSERT REPORT pa_prog FROM gi_code2.
IF sy-subrc EQ 0.
WRITE: 'Successfully hide the program:', pa_prog.
ENDIF.
Comments