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

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.