Code: Alles auswählen.
feld = <tab>-<feldname>.
Code: Alles auswählen.
FIELD-SYMBOLS:
<feldname> TYPE ANY.
DATA:
feldname_ref TYPE REF TO DATA,
feld(20) TYPE c.
START-OF-SELECTION.
CREATE DATA feldname_ref TYPE dd03l-tabname.
ASSIGN feldname_ref->* TO <feldname>.
SELECT fieldname
FROM dd03l
INTO <feldname>
WHERE datatype = 'CURR' AND
tabname = p_tab.
IF SY-SUBRC = 0.
feld = <tab>-<feldname>.
ENDIF.
ENDSELECT.
Code: Alles auswählen.
Code: Alles auswählen.
feld = <wa>-tabname.
Code: Alles auswählen.
FIELD-SYMBOLS:
<wa> TYPE ANY, "Struktur der DB-Tabelle
<feld> TYPE ANY. "Feld in Struktur
DATA:
wa_ref TYPE REF TO data. "Referenz auf Struktur
PARAMETERS:
p_tab TYPE dd03l-tabname, "Name DB-Tabelle
p_fld TYPE dd03l-fieldname. "Name Feld in DB-Tabelle
START-OF-SELECTION.
CREATE DATA wa_ref TYPE (p_tab). "Datenreferenz erzeugen
ASSIGN wa_ref->* TO <wa>. "Dereferenzieren auf Struktur
ASSIGN COMPONENT p_fld
OF STRUCTURE <wa> TO <feld>. "Komponente in Struktur Feld zuweisen
SELECT * FROM (p_tab) INTO <wa>. "Dyn. Select und Ausgabe
WRITE: / <feld>.
ENDSELECT.