Code: Alles auswählen.
field-symbols: <last> type any.
assign (field) to <last>.
message i888(sabapdocu) with resulttab-<last>.
Code: Alles auswählen.
REPORT.
DATA: wa TYPE t000.
DATA: fieldname TYPE string.
FIELD-SYMBOLS: <field> TYPE ANY.
PARAMETERS: field TYPE string OBLIGATORY DEFAULT 'MTEXT'.
START-OF-SELECTION.
SELECT SINGLE * FROM t000 INTO wa.
CONCATENATE 'WA-' field INTO fieldname.
ASSIGN (fieldname) TO <field>.
IF sy-subrc <> 0.
MESSAGE i888(sabapdocu) WITH 'Feldname' field 'nicht in Struktur T000 vorhanden'.
STOP.
ENDIF.
MESSAGE i888(sabapdocu) WITH 'Feldwert von Feld' field ':' <field>.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
MacLeod