Moin *all!

Irgendwie stehe ich heute mal wieder auf den Schlauch, und ich benötige Eure Hilfe. Ich möchte per SQl einen Wert ermitteln. Das SQL-Stmt. habe ich interactive getestet und liefert einen Wert.
PHP-Code:
d Jahr            s              2s 0                                      
d qa              s              2s 0                                      
d Anzahl          s              3u 0                                      
d                                                                          
d SQL_stmt        s            512                                         
                                                                           
c                                                                          
c                   Eval      SQL_stmt  = 'Select Count(Distinct(rswoc)) '+
c                                         'from grresp where rsjah = '    +
c                                         ':jahr and rsqua = :qa'          
c                                                                          
 * Declare Cusor                                                           
c/exec sql                                                                 
c+                Declare Cursor1 Cursor  For   SQLstmt                    
c/end-exec                                                                 
 * Setzen Sprachen ID                                                      
c/exec sql                                                                 
c+                Set Option SrtSeq = *LangIdShr                           
c/end-exec                                                                 
 * Setzen Modus für Close SQL-Cursor                
c/exec sql                                          
c+                Set Option CloSqlCsr = *EndMod    
c/end-exec                                          
c                   eval      jahr = 07             
c                   eval      qa   = 02             
 * Prepare Cursor                                   
c/exec sql                                          
c+                Prepare  SQLstmt  From :SQL_stmt  
c/end-exec                                          
c/exec sql                                          
c+                Fetch  Cursor1 InTo :anzahl       
c/end-exec                                          
c                                                   
c                   Eval      *inlr = *On 
Nur bei diesem kleine SQLRPG ist mein Feld ANZAHL immer 0.
Wo liegt denn nun hier mein Fehler ?

Gruß Ronald