Well, the member type is SQLRPGLE. Both WDSc and PDM want to use CRTSQLRPGI, so I let them. Used the same process for compiling that short and sweet one that I mentioned that did compile.
Jerry C. Adams
IBM System i Programmer/Analyst
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Friday, October 31, 2008 1:13 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: SQLRPGLE Will Not Compile
Um what command did you use to compile this?
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
Jerry Adams <Jerry@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
10/31/2008 02:05 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
"Midrange-RPG (rpg400-l@xxxxxxxxxxxx)" <rpg400-l@xxxxxxxxxxxx>
cc
Subject
SQLRPGLE Will Not Compile
I know this is going to turn out to be something really lame that I'm
simply missing, but bear in mind that I'm blind in one eye and wear
glasses for the other one.
I don't do much embedded SQL (yet), but I have done a few but one I have
been working on today simply will not compile. The reason being that it
does not copy in the SQL Communications area. At first, I forgot that
embedded SQL doesn't like subprocedures, but the manual straightened me
out there. But the manual said that SQL could be embedded in either
Detail or Total cals, or in a subroutine. So I moved the necessary code
to a subroutine (below). Still no luck.
I included the pre-compiler listing, but it only had comments about the
SET Options stuff, no errors.
The only errors in the ILE RPG listing are:
*RNF7030 30 050300 The name or indicator SQL_00000 is not defined.
*RNF7030 30 050300 The name or indicator SQL_00002 is not defined.
<etc.>
*RNF7030 30 050300 The name or indicator SQLCA is not defined.
*RNF7030 30 054000 The name or indicator SQLCLSE is not defined.
*RNF7030 30 052100 The name or indicator SQLCODE is not defined.
I re-compiled an existing, working program that is very similar (except
that, being short and sweet, everything is in Deatil calcs.), and it
compiled beautifully; the compile listing shows the SQL Communications
area. I only use SQL in the one subroutine shown below. The $Group
subroutine is, for what it's worth, called by another subroutine, which is
called by another subroutine, which is invoked from Detail calcs.
That may be too much information, but I didn't want to omit anything that
"might" have a bearing. So why is the program not compiling? (And if you
want to comment upon my code, feel free as I'm always willing to improve.)
BEGSR $Group;
x = *Zeros;
@legend = 'Consolidation Code: ' + consCode + ' ' + @consDesc;
/end-free
C/EXEC SQL
+ SET Option
+ Naming = *Sys,
+ DatFmt = *ISO,
+ Commit = *None,
+ UsrPrf = *Owner
C/End-Exec
C/Exec SQL
+ Declare BidGroup Cursor for
+ Select
+ bqcust,
+ bqitm#,
+ bqpr,
+ bqxdat
+ from BIDQTE
+ WHERE bqcust in(SELECT arcust From ARMAST
+ WHERE arcons = :conscodePI)
+ for Read Only
C/End-Exec
C/Exec SQL
+ OPEN BidGroup
C/End-Exec
/free
DOW 1 = 1;
/end-free
C/EXEC SQL
+ FETCH Next from BidGroup
+ INTO :customerPI,:itemPI,:PricePI,:expdatePI
C/End-Exec
/free
IF sqlState = '02000'
OR sqlCode < *Zeros;
LEAVE;
ENDIF;
<do stuff with the -PI data elements>
ENDDO;
/end-free
C/EXEC SQL CLOSE BidGroup
C/end-exec
Thanks.
Jerry C. Adams
IBM System i Programmer/Analyst
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx
--
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 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.
midrange.com
