Feldnamen in String schreiben

Code: Alles auswählen.

*&---------------------------------------------------------------------*
*& Report ZTEST5
*&---------------------------------------------------------------------*
REPORT ZTEST5.

  DATA DEINE_TABELLE TYPE STANDARD TABLE OF MARA.

  DATA: OUTPUTTABELLE_DESCRIPTOR TYPE REF TO CL_ABAP_TABLEDESCR,
        OUTPUTTABELLE_TABLE_LINE TYPE REF TO CL_ABAP_STRUCTDESCR,
        COMPONENTS TYPE CL_ABAP_STRUCTDESCR=>COMPONENT_TABLE,
        ERGEBNISSTRING TYPE STRING.

  OUTPUTTABELLE_DESCRIPTOR ?= CL_ABAP_TABLEDESCR=>DESCRIBE_BY_DATA( DEINE_TABELLE ).

  OUTPUTTABELLE_TABLE_LINE ?= OUTPUTTABELLE_DESCRIPTOR->GET_TABLE_LINE_TYPE( ).

  DATA(TABLE_LINE_COMPONENTS) = OUTPUTTABELLE_TABLE_LINE->COMPONENTS.

  ERGEBNISSTRING = REDUCE #( INIT ERGEBNIS TYPE STRING FOR <ZEILE> IN TABLE_LINE_COMPONENTS NEXT ERGEBNIS = ERGEBNIS && <ZEILE>-NAME ).

  WRITE ERGEBNISSTRING.