Re: sql weirdness...

If SQL is unable to find a row that satisfies the search condition, returns
sqlcode=100.
Check the condition over the library/file.

Fernando



                                                                                
                   
                    Yivi                                                        
                   
                    <nardus@xxxxxxxxx>       Para:   RPG programming on the 
AS400 / iSeries        
                    Enviado por:               <rpg400-l@xxxxxxxxxxxx>          
                   
                    rpg400-l-bounces@mi      cc:                                
                   
                    drange.com               Asunto:      sql weirdness...      
                   
                                                                                
                   
                                                                                
                   
                    11/11/2005 08:02                                            
                   
                    Por favor, responda                                         
                   
                    a RPG programming                                           
                   
                    on the AS400 /                                              
                   
                    iSeries                                                     
                   
                                                                                
                   
                                                                                
                   




I have the following thing:
[...]
/END-FREE
* Declaración Cursor SQL ++++++++++++++++++++++++++++++
C/EXEC SQL DECLARE ALFOF2 CURSOR FOR
C+ SELECT * FROM IVAN/ALFOFGAN2
C+ WHERE AMBITO = 'C' AND
C+ SITUACION = 'E' AND
C+ RESP <> 'B'
C/END-EXEC
* Apertura Cursor SQL ++++++++++++++++++++++++++++++
C/EXEC SQL
C+ OPEN ALFOF2
C/END-EXEC
* Ejecución Cursor SQL +++++++++++++++++++++++++++++
C/EXEC SQL
C+ FETCH ALFOF2
C+ INTO :ALF2
C/END-EXEC
/FREE

dow SQLCODE = 0;
// do stuff. print some lines
/END-FREE
C/EXEC SQL
C+ FETCH ALFOF2
C+ INTO :ALF2
C/END-EXEC
/FREE
endDo;
[...]
 The weird thing is that SQLCODE is set at 100, and the loop is not even
starting.
But, if I execute the SQL outside of the program I get about thirty rows,
so
I expect SQLCODE should be 0 at that point.
Anyone has any clue about what am I doing wrong here? Lack of sleep and
Friday anxiety aren't helping much my detective skills...
 Regards....
 I.-
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.