Re: sql weirdness...

["Glenn Gundermann" <ggundermann@xxxxxx>]

Yivi, 

Everything looks fine to me.  A couple of things come to mind.
- remove the three where conditions to see what you get
- are any of the fields you are using on the where null-capable?  If so, you 
might want to use IFNULL/COALESCE. 

Glenn 

Yivi writes: 

> 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.