Re: sql weirdness...

["Raul A. Jager W." <raul@xxxxxxxxxx>]

Your dow checks againt zero, maibe you have some oter problem, and 
SQLCODE is different from 0 but is not 100.  Try DSLY or send a message 
or DUMP(a) to see the value.

McGovern, Sean wrote:

> Check to see if the Open was successful.
>
> Have you run the program previously with different selection criteria and
> not closed the cursor ?
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Yivi
> Sent: 11 November 2005 11:03
> To: RPG programming on the AS400 / iSeries
> Subject: sql weirdness...
>
> 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.-
> --