Feldgruppe mit einem SQL Stmt füllen

[ILEMax]

D MASN DS DIM(30) QUALIFIED
D MA 4S 0
D DS
D M 4S 0 DIM(%ELEM(MASN)) oder

D MASN DS DIM(30) QUALIFIED
D MA 4S 0
D mm DS
D M 4S 0 DIM(%ELEM(MASN)) Beides versucht.
sowohl die schleife als auch dein 1. vorschlag bringen

*RNF5343 30 505 019600 Feldgruppe hat zu viele übergangene Indizes; die Bestimmung
wird ignoriert. Wuste gar nicht,das ILERPG so schwer ist.

HILFE
Max

[B.Hauser]

Also ... das folgende Beispiel kann problemlos umgewandelt werden (Release V5R4).


D MyArrDS DS Qualified Dim(10) inz
D MyFld 4S 0

D MyFGDS DS Inz
D MyFg 4S 0 Dim(%Elem(MyArrDS))

D Index S 3U 0
***********************************************
/Free
*InLR = *On;

MyArrDS(1).MyFld = 111;
MyArrDS(2).MyFld = 222;
MyArrDS(3).MyFld = 333;

Clear MyFg;
For Index = 1 To %Elem(MyArrDS);
MyFg(Index) = MyArrDS(Index).MyFld;
EndFor;

Return;
/End-Free

Birgitta

[ILEMax]

Moin,

ja, danke, nun geht es.
ich hatte gestern statt
masn(i).ma
masn.ma(i) geschrieben.

Das war natürlich falsch

Danke,
IleMax