RE: Conditional compile causes array error

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Rob,

Where is your /DEFINE? Are you trying to ensure that the prototypes are
copied only once (as in the example on page 17 of the ILE RPG Reference)? Or
is there another objective you're going for.

Eric DeLong
Sally Beauty Company
MIS-Sr. Programmer/Analyst
940-898-7863 or ext. 1863



-----Original Message-----
From: rob@dekko.com [mailto:rob@dekko.com]
Sent: Thursday, October 25, 2001 8:54 AM
To: rpg400-l@midrange.com
Subject: Conditional compile causes array error



I have a program using conditional compilation.  If I properly use the IF
so that calling programs can use it's prototypes then the compile fails.

>From Code/400

RNS9308T Compilation stopped. Severity 30 errors found in program.
      /if not defined(PrototypesOnly)
      ...
      /endif
     D AkornnOk        PR              n
     D  Operation                    10a   const
     D  ServerName                   20a   const
      /if defined(PrototypesOnly)
      /eof
      /endif
      ...
     D                 DS
     D ComboData                    900a   inz('ACL       GDSHELP
+
     D                                          ACL       NOTES01
+
     D                                          ACL       GDDATA
+
     D                                          ACL       QUALITY
+
     D                                          ACL       GDSSALES
+
     D                                          ACL       INTERNOTES
+
     D                                          DELETE    GDSHELP2
+
     D                                          DELETE    NOTES02
+
     D                                          DELETE    GDDATA2
+
     D                                          DELETE    QUALITY2
+
     D                                          DELETE    GDSSALES2
+
     D                                          DELETE    INTERNOTES2
+
     D                                          COPY      GDSHELP2
+
     D                                          COPY      NOTES02
+
     D                                          COPY      GDDATA2
+
     D                                          COPY      QUALITY2
+
     D                                          COPY      GDSSALES2
+
     D                                          COPY      INTERNOTES2
+
     D                                          PURGE     GDSHELP2
+
     D                                          PURGE     NOTES02
+
     D                                          PURGE     GDDATA2
+
     D                                          PURGE     QUALITY2
+
     D                                          PURGE     GDSSALES2
+
     D                                          PURGE     INTERNOTES2
+
     D                                          DIR       GDSHELP2
+
     D                                          DIR       NOTES02
+
     D                                          DIR       GDDATA2
+
     D                                          DIR       QUALITY2
+
     D                                          DIR       GDSSALES2
+
     D                                          DIR       INTERNOTES2
')
     D ValidCombos                   30a   Dim(30) overlay(ComboData)

      /free
       return %tlookup(Operation+Servername:ValidCombos);
RNF5343S Array has too many omitted indexes; specification is ignored.
RNF0597E The second parameter for %TLOOKUPxx is not valid.

But if I change
      /if defined(PrototypesOnly)
to
      /if not defined(PrototypesOnly)
Then it works.

To compile I just use Ctl-Shift-C.

Rob Berendt

==================
A smart person learns from their mistakes,
but a wise person learns from OTHER peoples mistakes.

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.