Code: Alles auswählen.
LOOP AT ITAB
INTO LS_STUC
CONCATENATE 'Feld' P_feld into lv_feld.
LS_STUC-[b](Feld1)[/b]
ENDLOOP.
Code: Alles auswählen.
TYPES: BEGIN OF ttab,
f01 TYPE char08,
f02 TYPE char08,
f03 TYPE char08,
f04 TYPE char08,
END OF ttab.
DATA itab TYPE TABLE OF ttab.
DATA ltab TYPE ttab.
DATA txt(10).
DATA num(2) TYPE n.
FIELD-SYMBOLS <f> TYPE ANY.
do 10 times.
DO 4 TIMES.
num = sy-index.
CONCATENATE 'LTAB-F' num INTO txt.
ASSIGN (txt) TO <f>.
IF sy-subrc = 0.
<f> = 'abc'.
ENDIF.
ENDDO.
append ltab to itab.
enddo.
Code: Alles auswählen.
TYPES: BEGIN OF ttab,
f01 TYPE char08,
f02 TYPE char08,
f03 TYPE char08,
f04 TYPE char08,
END OF ttab.
DATA itab TYPE TABLE OF ttab.
DATA ltab TYPE ttab.
DATA txt(10).
DATA num(2) TYPE n.
FIELD-SYMBOLS <f> TYPE ANY.
PARAMETERS p_feld(1).
* NUR numerische Werte zulassen
IF p_feld GT '0' AND p_feld LE '4'.
num = p_feld.
CONCATENATE 'LTAB-F' num INTO txt.
ASSIGN (txt) TO <f>.
IF sy-subrc = 0.
<f> = 'abc'.
ENDIF.
ENDIF.