|
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 thatThis is the RPG programming on the IBM i (AS/400 and iSeries)
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...This is the RPG programming on the IBM i (AS/400 and iSeries)
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.
(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.
(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 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.
midrange.com
