Anzeigervariable bei einem Resuktset

[mk]

Hallo,

weiß jemand wie ich Anzeigervariablen
für eine Datenstruktur definieren kann ?


Snippet:

exec SQL                                                                                   
           call   xxxxx (  :IO_AKtion,                                                    
                           :IO_Status,                                                    
                           :IO_Meldung );                                                   
            If SqlCode = 466 ;                                                                        
            exec sql ASSOCIATE LOCATORS ( :RSLCsrC01 )                                              
                     WITH PROCEDURE S_load_Daten  ;                                              
                                                                                                    
            exec sql ALLOCATE CSR_ROLLOUT  CURSOR                                                   
                     FOR RESULT SET :RSLCsrC01  ;                                                     
                                                                                                    
            Dow SqlCode = *Zeros ;                                                                  
               exec sql Fetch Next From CSR_ROLLOUT                                                 
                                   Into :DSCsrC01 ;                                                 
               If SqlCode = *Zeros ;                                                                
                   // xxxxxxxxxxxx                                            
               EndIf;                                                                               
            EndDo;                                                                                  
            Exec SQL Close CSR_ROLLOUT;                                                             
          EndIf; 

Der Fetch Into SCsrC01 in die Datenstruktur
schlägt fehl da Felder null Werte enthalten.

Gruß
Michael

[B.Hauser]

Du legst eine Feldgruppe mit 5I 0 und der Dimension Anzahl Spalten aus Result-Set oder Anzahl Unterfelder in Feldgruppe und fügst diese dem FETCH Statement zu (nur durch ein Blank getrennt, KEIN Komma):

D  ArrInd       S                   5I 0   Dim(123)

  /Free 
      Exec SQL Fetch Next From Csr_RollOut 
                     into :DSCsrc01 :ArrInd;

Birgitta

[mk]

Hallo Birgitta,

funktioniert. Vielen Dank Michael