Feldgruppe mit einem SQL Stmt füllen

[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