Code: Alles auswählen.
Name Char
Id Numc
Type char
Value Tabellentyp
Code: Alles auswählen.
REPORT.
DATA: test TYPE t000.
DATA: struct_descr TYPE REF TO cl_abap_structdescr,
component_table TYPE cl_abap_structdescr=>component_table,
dref type ref to data.
FIELD-SYMBOLS: <reduziert> TYPE ANY.
START-OF-SELECTION.
* Strukturbeschreibung der Ausgangsstruktur holen
struct_descr ?= cl_abap_structdescr=>describe_by_data( test ).
* Komponentenliste herausfinden
component_table = struct_descr->get_components( ).
* Struktur reduzieren (Hier Spalte MANDT rauswerfen)
DELETE component_table WHERE name = 'MANDT' .
TRY.
* Strukturbeschreibung zu reduzierter Struktur erzeugen
struct_descr = cl_abap_structdescr=>create( p_components = component_table ).
* Referenz zu reduzierter Struktur erzeugen
CREATE DATA dref TYPE HANDLE struct_descr.
* und dereferenzieren
assign dref->* to <reduziert>.
CATCH cx_sy_struct_creation .
BREAK-POINT.
CATCH cx_root.
BREAK-POINT.
ENDTRY.
BREAK-POINT.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
cmalthaner
Dann hättest Du Dein Coding einfach von vornherein hier reinstellen sollen.nordlender hat geschrieben:Vielen dank, es funktioniert.
Die ganzen Zuweisungen habe ich natürlich vorher gemacht, nur mit DELETE hat’s gehakt.
Danke noch Mal.
Gruß
nordlender