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

[mlazarus <mlazarus@xxxxxxxx>]

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