×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
After reviewing the code again, I realized that the cursor was declared in the *INZSR, but the Open and other functions were in other subroutines that were PHYSICALY located in earlier source statements.
The SQL Pre-Compiler is NOT aware that the *INZSR gets executed first, so it sees the Open etc BEFORE the DECLARE and issues the error.
I have moved the other subroutines to after the *INZSR and the pre-compiler now has no problem.
Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2
IBM Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
IBM Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3
----- Original Message ----
From: Jeff Young <cooljeff913@xxxxxxxxx>
To: midrange-l@xxxxxxxxxxxx; rpg400-l@xxxxxxxxxxxx
Sent: Monday, February 11, 2008 12:31:37 PM
Subject: Help with SQL compile issue
I have a program with the following code:
In InzSr
C/Exec SQL
C+ PREPARE SMO_SELECTION FROM :sSelect
C/End-Exec
C/Exec SQL
C+ DECLARE MO_SELECTION CURSOR FOR SMO_SELECTION
C/End-Exec
EndSr
Later, in execution
C/Exec SQL
C+ Open MO_SELECTION using
C+ :FCmp, :TCmp,
C+ :FCust, :TCust,
C+ :FLoc, :TLoc,
C+ :FItem, :TItem,
C+ :FSer, :TSer,
C+ :FSTag, :TSTag
C/End-Exec
Get pre-compile error, SQL0504 35 761 Position 17 Cursor MO_SELECTION not declared.
Get the same error on the cursor for the FETCH, and the CLOSE
I can not determine why I am getting the error in the pre-compiler.
Thanks,
Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2
IBM Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
IBM Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.