Re: AW: SQL pre-compiler not recognizing /DEFINEd variable

How so? I want the same code copy behavior, regardless of the compiler
type. /INCLUDE will not do the copy if the type is SQLRPGLE.

-mark


On 9/3/2014 2:02 PM, Charles Wilt wrote:

I understand what you're doing, not particularly fond of it but that
doesn't matter.

What matters is that if you switch from /COPY to /INCLUDE the pre-compiler
will ignore the line and the RPG compiler won't. So it will work they way
you want it to.

Charles



On Wed, Sep 3, 2014 at 1:50 PM, mlazarus<mlazarus@xxxxxxxx> wrote:

Charles,

The basic idea is to have the prototypes and the procedures in one
source
member. Since they must physically be in different locations in the
program source, I'm trying to condition it via variables. Here's some
pseudo-code:

Main source:
/DEFINE Proto
/COPY ProcStuff
... some calcs ...
// After the calcs, procedures go here.
/DEFINE MyProcs
/COPY ProcStuff
_______

Member ProcStuff:

/IF DEFINED( Proto )
/UNDEFINE Proto
D MyProc PR
/ENDIF

/IF DEFINED( MyProcs )
/UNDEFINE MyProcs
D MyProc b
D MyProc PI
D MyProc e
/ENDIF

The SQL pre-compiler seems to ignore the variable conditioning and
includes the prototype D spec again at the end, so the pre-compiler said
that the source is out of sequence.

-mark


On 9/3/2014 1:34 PM, Charles Wilt wrote:

Nope. The SQL precompiler doesn't support all the conditionals that the
RPG compiler does.

Assuming you aren't referencing any variables defined in the /COPY in an
SQL statement. Just switch /COPY to /INCLUDE and the SQL pre-compiler
will
quite expanding them. Thus allowing RPG to do so properly.

Charles


On Wed, Sep 3, 2014 at 1:09 PM, mlazarus<mlazarus@xxxxxxxx> wrote:

Charles,

This is working fine for RPGLE. For SQLRPGLE, the pre-compiler
seems
to
ignore ALL conditioning and setting of variables! This there some
setting
/ parameter to get it to recognize them? This is making things quite a
bit
more complicated.

-mark


On 9/3/2014 12:27 PM, Charles Wilt wrote:

/INCLUDE works just like /COPY from the RPG compiler perspective...

It's just the SQL pre-compiler that treats them differently.

Charles


On Wed, Sep 3, 2014 at 10:59 AM, mlazarus<mlazarus@xxxxxxxx>
wrote:

Birgitta,

Is this a permanent restriction? I can't use /INCLUDE in this
case,
since the production code actually has the prototype and a couple of
related procedures. (They are message handling routines, and I don't
want
to put them into a service program.) Therefore, I really do want the
same
member /COPY'ed twice, but different sections should be included
based
on
the variable definition.

-mark


On 9/3/2014 1:18 AM, Birgitta Hauser wrote:

Just use /INCLUDE instead of /COPY.
The SQL precompiler may have some problems with compiler directives
and
including the same copy member multiple times.
Since the copy member X@ only includes a prototype, which is not
used
by
any
SQL statement, use /INCLUDE.
Copy members included with /INCLUDE are ignored by the SQL
precompiler
(by
default)

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not
training
them
and keeping them!"


-----Ursprüngliche Nachricht-----
Von: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von
mlazarus
Gesendet: Wednesday, 03.9 2014 00:24
An: RPG400-L@xxxxxxxxxxxx
Betreff: SQL pre-compiler not recognizing /DEFINEd variable

I just ran into an SQL pre-compiler situation that seems to
be a
defect.

When compiling this as an RPGLE, it compiles fine. Changing
it
to
SQLRPGLE causes it to fail:
SQL1106 30 RPG specification out of order.

It looks like it's ignoring the defined variable and copying
the
code
again. This is for a client that's still on V5R2. Does this work
properly
at a current compiler version?

Here's a test program to illustrate:

H OPTION( *SrcStmt: *NoDebugIO )
H dftactgrp(*NO) actgrp(*new)
/COPY X@
d Test2 pr
C EVAL *INLR = *On
P Test2 b
d Test2 pi
P Test2 e
/COPY X@

______________
Include member X@:

/IF NOT DEFINED(TestPgmPRCopied)
/DEFINE TestPgmPRCopied
* Test prototype
D TestPgm PR ExtPgm('TESTPGM')
/ENDIF

-mark
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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.