ILE RPG / SQL Füllen einer Feldgruppe

[B.Hauser]

Hallo

es ist nicht möglich eine Feldgruppe oder einzelne Feldgruppen-Elemente mit embedded SQL direkt anzusprechen.

Ab Release V5R3M0 ist es jedoch möglich Array-Datenstrukturen zu verwenden und diese direkt zu füllen. Vielleicht hilft Dir das ja weiter:

D DSArray         DS                  dim(100)           
D  MyFld                        10A                      
                                                         
D Elements        S              5I 0 inz(%Elem(dSArray))
D AnzRows         S              5I 0                    
 *-------------------------------------------------
C/EXEC SQL                      
C+ Declare MyCsr Cursor for     
C+ Select FieldA From MyTable where ...
C/End-Exec
                      
C/EXEC SQL Open  MyCsr                                 
C/END-EXEC                                             
                                                      
C/EXEC SQL                                             
C+ Fetch next from MyCsr                               
C+       for  :Elements rows into :dSArray 
C/END-EXEC                                             
C                   Eval      AnzRows = SQLER3         
                                                      
C/EXEC SQL Close MyCsr                                 
C/END-EXEC                                     
 /Free                                                 
   For Index = 1 to AnzRows;                          
       Dsply DSArray(Index).MyFld;                    
   EndFor;                                            
   *InLR = *On;
/End-Free 

Birgitta