RE: sql weirdness...

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

This e-mail is confidential, intended only for the named recipient(s) above,
and may well also be legally privileged. If you have received it in error,
you are on notice of its status. Please notify us immediately by reply
e-mail and then delete this message from your system. Please do not copy it
or use it for any purposes, or disclose its contents to any other person: to
do so could be a breach of confidence. Please contact us on +44 (0) 1329
224000 or email postmaster@xxxxxxxxxxxxxxxxxxxxxxx if you need assistance.
Thank you for your co-operation.

****************************************************************************