Code: Alles auswählen.
data: xxx TYPE mytype. "irgendwelche Felder
field-symbols: <xxx> type any.
CLEAR h_comp.
DO.
ADD 1 TO h_comp.
* Quell-Feld zuweisen
ASSIGN COMPONENT h_comp OF STRUCTURE xxx TO <xxx>.
* Fertig, wenn Zuweisung fehlschlägt
IF sy-subrc NE 0.
EXIT.
* Zuweisung OK
ELSE.
* Quellfeld prüfen??
IF <xxx> IS INITIAL.
* ins Zielfeld was reinstellen
MOVE 'yyyy' to <xxx>.
ENDIF." Quell-Feld war leer
ENDIF. "Komponente war gültig
ENDDO. "Datenfelder der Struktur bearbeiten
Code: Alles auswählen.
DATA:
itab TYPE TABLE,
wa_itab LIKE LINE OF itab.
FIELD-SYMBOLS:
<field> TYPE ANY.
DO.
ASSIGN COMPONENT sy-index OF STRUCTURE wa_itab TO <field>.
IF sy-subrc NE 0.
EXIT.
ELSE.
* Quellfeld prüfen??
IF <field> IS INITIAL.
* ins Zielfeld was reinstellen
CLEAR <field> WITH 'Ï'.
MODIFY itab FROM wa_itab
WHERE 'Feldname' = space "woher??
TRANSPORTING ('Feldname').
ENDIF." Quell-Feld war leer
ENDIF. "Komponente war gültig
ENDDO. "Datenfelder der Struktur bearbeiten
Code: Alles auswählen.
*--->>>
DATA: itab TYPE TABLE of mytable.
FIELD-SYMBOL: <itab> like line of itab.
*<<<---
field-symbols: <xxx> type any.
LOOP AT itab assigning <itab>.
CLEAR h_comp.
DO.
ADD 1 TO h_comp.
* Quell-Feld zuweisen
*--->>>
ASSIGN COMPONENT h_comp OF STRUCTURE [b]<itab[/b]> TO <xxx>.
*<<<---
* Fertig, wenn Zuweisung fehlschlägt
IF sy-subrc NE 0.
EXIT.
* Zuweisung OK
ELSE.
* Quellfeld prüfen??
IF <xxx> IS INITIAL.
* ins Zielfeld was reinstellen
MOVE 'yyyy' to <xxx>.
ENDIF." Quell-Feld war leer
ENDIF. "Komponente war gültig
ENDDO. "Datenfelder der Struktur bearbeiten