Re: SQL cursor declaration in RPG 400 program

[Charles Wilt <charles.wilt@xxxxxxxxx>]

The error message is telling you the problem.

Look at your ILE module again...

You have to have the DECLARE before the PREPARE.

Note: It is the physical order of the statements in the source member
that matters, not the order in which the statement appear to be
executed.

---This Works---

/free
  exsr  DeclareStmt;
  exsr  PrepareStmt;

  // more stuff
  *INLR = *ON;
  return;

begsr;
   exec SQL
     declare csrSQL cursor for prpSQL;
endsr;

begsr;
   exec SQL
     prepare prpSQL from :mySQLStmt;
endsr;

But this doesn't

---This Works---

/free
  exsr  DeclareStmt;
  exsr  PrepareStmt;

  // more stuff
  *INLR = *ON;
  return;

begsr;
   exec SQL
     prepare prpSQL from :mySQLStmt;
endsr;

begsr;
   exec SQL
     declare csrSQL cursor for prpSQL;
endsr;


HTH,
Charles


On Tue, Jun 15, 2010 at 7:51 AM, Jonathan Mason
<jonathan.mason@xxxxxxxxxxxxxxxx> wrote:
> Hi Everyone
>
> I'm having to modify an old, old, old RPG 400 program and need to embed
> some SQL into it, however after making my changes the SQL pre-compiler
> throws out an error saying that the cursor needs to be defined first.
>
> The section of code that prepares, declares and opens the cursor looks
> like this:
>
> <snip>
> 6992 C/Exec SQL
> 6992 C+  Prepare prpSQL from :wSQL
> 6992 C/End-Exec
> 6992 C*
> 6992 C* 4. If there were no errors then declare the cursor...
> 6992 C*
> 6992 C           SQLCOD    IFEQ *ZEROS
> 6992 C*
> 6992 C/Exec SQL
> 6992 C+  Declare csrSQL cursor for prpSQL
> 6992 C/End-Exec
> 6992 C*
> 6992 C* 5. If there were no errors then open the cursor...
> 6992 C*
> 6992 C           SQLCOD    IFEQ *ZEROS
> 6992 C*
> 6992 C/Exec SQL
> 6992 C+  Open csrSQL
> 6992 C/End-Exec
> 6992 C                     ENDIF
> </snip>
>
> However, the pre-compiler report shows the following errors:
>
> Record  *...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+...
>  258   6992 C+  Close csrSQL
>  780   6992 C+  Open csrSQL
>  796   6992 C+  Fetch csrSQL into :wRRNA, :wRRNB, :wTYPE
> 5722ST1 V5R4M0 060210             Create SQL RPG Program
>                                             DIAGNOSTIC MESSAGES
> MSG ID  SEV  RECORD  TEXT
> SQL0504  35     258  Position 16 Cursor CSRSQL not declared.
> SQL0504  35     780  Position 15 Cursor CSRSQL not declared.
> SQL0504  35     796  Position 16 Cursor CSRSQL not declared.
>
> I have a similar piece of code in an ILE module and that compiles fine.
> I can't see anything obviously wrong with the code and was wondering if
> anybody had any ideas?
>
> Thanks
>
> Jonathan
>
>
>
>
>
>
>
> _______________________________________________________
> This message was sent using NOCC v1.14 webmail software
> _______________________________________________________
>
>
>
>
> --
> 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.