After each SQL Statement either the SQLCODE or SQLSTATE should be checked.
What exactly is the erroneous SQLCODE or SQLSTATE after the OPEN statement?
BTW you can also dump the complete error message into a host variable, by
executing the following statement:
Exec SQL ...
If SQLCODE < *Zeros //Error occurred
Exec SQL Get Diagnostics Condition 1 :HostMsgText = MESSAGE_TEXT;
EndIf;
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Jack Tucky
Gesendet: Thursday, 07.3 2013 03:27
An: rpg400-l@xxxxxxxxxxxx
Betreff: Sql question
I'm using ARDGATE to connect to an MSSQL Server. I was shocked I got it
working so quickly. I'm able to run my SQL statements using STRSQL.
Now I'm trying to convert them to SQLRPGLE, and I'm receiving an error
Cursor not prepared.
If you can't tell, I'm still learning SQLRPG. Here is what I'm doing. I
have SqlRec is a DS with the 4 fields I'm looking to retrieve.
Exec SQL CONNECT TO :RDBAX USER :USERX USING :PASSX;
pBol = '351787';
EXEC SQL
Declare C1 Cursor for
select OCR_PATH, MANIFEST_NO, BOL, DOCUMENT_ID
from shipping where bol = :pBol
and DOCUMENT_ID <> -1;
EXEC SQL Open C1;
EXEC SQL Fetch Next from C1 into :SqlRec;
dow sqlstt = '00000';
// do stuff here
EXEC SQL Fetch Next from C1 into :SqlRec;
Enddo;
Thanks, Jack
--
This is the RPG programming on the IBM i (AS/400 and 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.
midrange.com
