× 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.



Is your set option physically above other sql statements in your program?

On Wed, Apr 13, 2011 at 12:50 PM, Kurt Anderson
<kurt.anderson@xxxxxxxxxxxxxx> wrote:
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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.