SQLRPG - Die ??.

[malzusrex]

So, danke euch beiden.
ich habe jetzt mal Eure Infos eingepflegt, und bin zu folgenden Funktionierenden Proggi gekommen:

d jahr            s              2s 0                  
d qa              s              2s 0                  
d anzahl          s              2s 0                  
                                                       
c                                                      
c/exec sql    Set Option SrtSeq = *LangIdShr           
c/end-exec                                             
c/exec sql    Declare Cursor1 Cursor  For              
c+              Select Count(Distinct(rswoc)) as anzahl
c+              from   grresp                          
c+              where  rsjah = :jahr                   
c+                and  rsqua = :qa                     
c/end-exec                                             
c/exec sql    Close Cursor1                            
c/end-exec                                             
c                   eval      jahr = 07                
c                   eval      qa   = 02                
c/exec sql    Open  Cursor1  Using :jahr, :qa          
c/end-exec                                             
c/exec sql    Fetch  Cursor1 Into :anzahl  
c/end-exec                                 
c                                          
c                   Eval      *inlr = *On 

mir ist auch klar, das ich damit nicht den schönheitspreis gewinnen werde.

@Birgitta
Option CLOSQLCSR = *ENDMOD
hatte ich eingebaut, da ich in einem Programm folgendes Problem hatte:
Dynamisches SQL mit "Select * from kunden where name like 'K%'
bei dem 2. Aufruf mit "Select * from kunden where name like 'S%' hatte ich dann keine Daten, weil er nur noch die Kunden mit "K" im Zugriff hatte. Darum habe ich halt die OPTION eingebaut.

Gruß Ronald