Sam has got this one.
The DECLARE only "sets up" the SELECT...it doesn't actually do anything that will change the SQLCode. The OPEN is the action that sets the SQLCode and in RPGLIST's case, the SQLCode is reflecting the successful execution of the OPEN (SQLCode all zeros), not the execution of the SELECT inside the DECLARE.
In order to see the resultant SQLCode for the SELECT in the DECLARE, you must do something like FETCH in order to run the SELECT. The SQLCode that results is the code associated with the SELECT inside the DECLARE. RPGLIST's FETCH will result in SQLCode = 100 because zcode <> opcode.
Also, in my experience, it is useless to evaluate the SQLCode after a DECLARE (SQLCode is not updated), but vital after the OPEN for the declared cursor. Also, perform the evaluation of the SQLCode as soon as possible after the SQL statement is executed. Remember that there is only one SQLCode variable per program and all of the SQL statements will change it. If you wait too long, you may by checking the status of different execution of an SQL statement than you think.
Steve Needles
________________________________________
From: rpg400-l-bounces@xxxxxxxxxxxx [rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Sam_L [lennon_s_j@xxxxxxxxxxx]
Sent: Monday, November 19, 2012 6:49 PM
To: RPG programming on the IBM i / System i
Subject: Re: Sqlcod question
To the best of my knowledge, the Declare doesn't execute anything and
doesn't set SQLCOD or SQLSTT.
The Open, on the other hand, does set SQLCOD and SQLSTT.
Sam
On 11/19/2012 1:08 PM, Gary Thompson wrote:
Yes, for sure check after the Fetch,
but also do check after the Declare.
The specific answer to your question is SQL
returned all zeros because the Declare statement
completed without error.
--
This is the RPG programming on the IBM i / System i (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 communication, including attachments, is confidential, may be subject to legal privileges, and is intended for the sole use of the addressee. Any use, duplication, disclosure or dissemination of this communication, other than by the addressee, is prohibited. If you have received this communication in error, please notify the sender immediately and delete or destroy this communication and all copies.
midrange.com
