Das Problem liegt daran, dass Array Datenstrukturen und Feldgruppen anders aufgebaut sind.
MoveA funktioniert auf keinen Fall.
Da in der Array-Datenstruktur nur ein Unterfeld definiert ist und angenommen das Datenstruktur-Unterfeld ist genau so definiert wie das Feldgruppen Element, könnte das Ganze wie folgt funktionieren.
Code:
D MyArrDS DS Dim(100) qualified
D MyFld 10A
D MyFGDS DS
D MyFG 10A Dim(%Elem(MyArrDS))
/Free
MyFGDS = MyArrDS;
/End-Free
Sollte dies nicht funktionieren, musst Du leider eine Schleife bauen:
Code:
/Free
For Index = 1 to %Elem(MyArrDS)
MyFG(Index) = MyArrDS(Index).MyFld;
EndFor;
/End-Free
Birgitta
Bookmarks