[SAP ABAP] Hide ABAP Program/Code

  • Short Code
REPORT  ygold_code1.
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

REPORT ygold_code2.

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