Wenn die Datenstruktur-Unterfelder gleich heißen und mindestens eine der beiden Datenstrukturen qualifiziert ist (anders erhält man eh' keine doppelten Unterfelder) und Du mindestens auf Release V5R4 bist, kannst Du in RPG den OPcode EVAL-CORR verwenden.

Felder mit gleichem Namen werden übertragen, alle ungleichen Felder bleiben unverändert:

Code:
 /Free
     Eval-Corr  DS2 = DS1;
 /End-Free
Birgitta