Code: Alles auswählen.
data feld(30).
field-symbols <feld>.
feld = 'TAB2-VKONT'.
assign (feld) to <feld>.
if sy-subrc = 0.
*** Feld vorhanden ***
endif.
ewx hat geschrieben:Gruß,Code: Alles auswählen.
data feld(30). field-symbols <feld>. feld = 'TAB2-VKONT'. assign (feld) to <feld>. if sy-subrc = 0. *** Feld vorhanden *** endif.
Enno.
Code: Alles auswählen.
FIELD-SYMBOLS:
<fs> TYPE ANY.
CASE ls_idoc_data-segnam.
WHEN 'ZTEST01'.
ls_ztest01 = ls_idoc_data-sdata.
READ TABLE lt_idoc_ctrls WITH KEY segnam = ls_idoc_data-segnam.
IF sy-subrc = 0.
ASSIGN COMPONENT lt_idoc_ctrls-fieldname OF STRUCTURE ls_ztest01 TO <fs>.
IF sy-subrc NE 0 OR
<fs> IS INITIAL.
raise_error.
ENDIF.
ENDIF.
ENDCASE.