RE: SQLRPGLE not compiling

Hi Kurt
I seem to recollect that the placement of
Exec SQL Set Option DatFmt = *ISO, TimFmt = *ISO,
Commit = *none, CloSQLCsr = *endactgrp;
in relation to the other exec sql commands has a bearing
Hopefully this explanation makes sense
The line numbers of the
Exec SQL Set Option DatFmt = *ISO, TimFmt = *ISO,
Commit = *none, CloSQLCsr = *endactgrp;
HAVE to be before the line numbers of ALL of your other EXEC SQL commands


Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Kurt Anderson
Sent: Wednesday, April 13, 2011 12:50 PM
To: RPG programming on the IBM i / System i (rpg400-l@xxxxxxxxxxxx)
Subject: SQLRPGLE not compiling

I'm guessing that I'm missing something very obvious here, but I can't figure out why my SQLRPGLE program won't compile. It appears to be missing the SQLCA, but I don't know why.

Source type is SQLRPGLE.
I'm taking option 14 from PDM.
The SQL pre-compiler runs successfully (after fixing a couple bugs it complained about).
However, the regular compiler is failing because it is claiming that all of the SQL* fields that the pre-compiler inserted are all undefined.

*RNF7030 SQL_00000 **UNDEF** 6039M
*RNF7030 SQL_00003 **UNDEF** 6040
*RNF7030 SQL_00005 **UNDEF** 6035M
*RNF7030 SQL_00006 **UNDEF** 6041
*RNF7030 SQL_00007 **UNDEF** 6042
*RNF7030 SQLCA **UNDEF** 6038M
*RNF7030 SQLER6 **UNDEF** 6036M
*RNF7030 SQLROUTE **UNDEF** 6037
*RNF7030 SQLSTATE **UNDEF** 6047

I've never encountered this before.

The only SQL in this program:
Exec SQL Set Option DatFmt = *ISO, TimFmt = *ISO,
Commit = *none, CloSQLCsr = *endactgrp;
And:
exec sql select Dst, RRN(a) into :Dst, :RRN
from AstFmtCP a
where Channel Like :KeyVal;

If %subst( SqlState: 1: 2 ) >= '02';

(I also tried, to no success):
Exec SQL Set Option SQLCA = *Yes, DatFmt = *ISO, TimFmt = *ISO,
Commit = *none, CloSQLCsr = *endactgrp;

We have plenty of SQLRPGLE programs and I've never encountered this before.

Any ideas?

This is on v6.1

Thanks,

Kurt Anderson
Sr. Programmer/Analyst
CustomCall Data Systems
--
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.