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



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.