Feldgruppe mit einem SQL Stmt füllen

[ILEMax]

Sorry aber ich bin wohl zu blöd.
Mit
D Frg s 4S 0 DIM(%elem(myds))

movea Myds Fgr

kommt nur das 1. Element an. So dusselig kann man sich doch garnich anstellen oder ?
Max

[B.Hauser]

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.

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:

 /Free
    For Index =  1 to %Elem(MyArrDS)
         MyFG(Index) = MyArrDS(Index).MyFld;
    EndFor;
 /End-Free

Birgitta

[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