SQL Prozedur mit Cursor als Rückgabe (Embedded SQL)

[harkne]

Ich habs gefunden. Es funktioniert jetzt alles.

Für alle die es interessiert. Nachfolgend meine Quellenzusammenfassung

d rsWR            s                   sqltype(result_set_locator)         
d DsWR            ds                                                      
d   Row_Key                    250                                        
d   Commission_Number...                                                  
d                              250                                        
d   Commission_Number_Year...                                             
d                              250                                        
d   Vin                        250                                        
d   Invoice_Number...                                                     
d                              250                                        
d   Invoice_Date...                                                       
d                              250                                        
d   Amount                     250                                        
d   Currency                   250                                        
d   Invoicing_Dealer...                                                   
d                              250                                        
d   Sales_Category...                 
d                              250                                         
d   CDC_Valid_From...                                                      
d                                9  0                                      
d   CDC_DelFrom...                                                         
d                                9  0                                      
d myNulls         s              5i 0 dim(12)   
***************************************************************************
** Hauptprogramm                                                           
***************************************************************************
c/exec sql                                                                 
c+ call EXP.P_REQUEST_SST('NCONS', 'XXX', 'VERSAND',     
c+ 0, 0, '', 0, 0)                                                         
c/end-exec                                                                 
c/exec sql                                                                 
c+ ASSOCIATE RESULT SET LOCATOR(:rsWR) with specific procedure             
c+ P_REQUEST_SST                                                           
c/end-exec                                                                 
c/exec sql                                                                 
c+ ALLOCATE cWR CURSOR FOR RESULT SET :rsWR                                
c/end-exec                                                                 
c                   do        *hival                                       
c/exec sql                                                                 
c+ FETCH NEXT FROM cWR into :DsWR:myNulls                                  
c/end-exec                                                                 
c                   if        SqlCod = 100 or SqlCod < *zeros              
c                   leave          
c                   endif                                                  
**                                                                         
c                   enddo                                                  
c/exec sql                                                                 
c+ CLOSE cWR                                                               
c/end-exec                                                                 
**                                                                         
c                   eval      *inlr = *on

An die Prozedur selbst komme ich leider nicht ran. Aber so wie oben funktioniert es im RPG

[harkne]

Vielen Dank an alle für die Unterstützung