Einkaufsinfosatz

Code: Alles auswählen.

data:
  lr_table type ref to data,
  lt_component type abap_component_tab,
  lr_structdescr type ref to cl_abap_structdescr,
  lr_tabledescr type ref to cl_abap_tabledescr.

field-symbols:
  <ls_component> type abap_componentdescr,
  <lt_table> type standard table,
  <la_line> type any,
  <la_field> type any.

* lt_component aufbauen je nachdem welche Felder benötigt werden.
append initial line to lt_component assigning <ls_component>.
<ls_component>-name = 'NAME_DER_SPALTE'.
<ls_component>-type = cl_abap_typedescr=>describe_by_name( p_name = 'NAME_DES_DDIC_DATENTYPS' ).

* Anlegen der Ausgabe-Tabelle im Speicher
lr_structdescr = cl_abap_structdescr=>create( p_components = lt_component ).
lr_tabledescr = cl_abap_tabledescr=>create( p_line_type = lr_structdescr ).
create data lr_table type handle lr_tabledescr.
assign lr_table->* to <lt_table>.

* Tabelle befüllen
append initial line to <lt_table> assigning <la_line>.
assign component 'NAME_DER_SPALTE' of structure <la_line> to <la_field>. 
<la_field> = 'WERT_DER_SPALTE'.

* Tabelle auslesen
loop at <lt_table> assigning <la_line>.
  loop at lt_component assigning <ls_component>.
    assign component <ls_component>-name of structure <la_line> to <la_field>.
* Verarbeitung
  endloop.
endloop.