[ABAP] Programmcode lesen und ausgeben

DATA(it_source_code) = VALUE stringtab( ).

READ REPORT 'ZDEMO1' INTO it_source_code.

IF sy-subrc = 0.
  LOOP AT it_source_code ASSIGNING FIELD-SYMBOL(<fs_line>).
    WRITE: / |{ sy-tabix }: { <fs_line> }|.
  ENDLOOP.
ENDIF.