Re: Next Question: Compile-time arrays in subprocedures

Use Overlay instead of the traditional crud at the bottom of the listing is
what I like.  Although I suppose if you had a HUGE table it would get
frustrating.
P AkornnOk        B                   export
D AkornnOk        PI              n
*entry
D  Operation                    10A   const
D  ServerName                   20A   const
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)

D ArrayElement                  10i 0

 /free
  ArrayElement=%lookup(Operation+Servername:ValidCombos);
  If ArrayElement=0;
   return *off;
  Else;
   return *on;
  EndIf;

 /end-free
P AkornnOk        E


Rob Berendt

==================
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    "Wills, Mike N.
                    (TC)"                   To:     "'rpg400-l@midrange.com'" 
<rpg400-l@midrange.com>
                    <MNWills@taylorco       cc:
                    rp.com>                 Fax to:
                    Sent by:                Subject:     Next Question: 
Compile-time arrays in subprocedures
                    rpg400-l-admin@mi
                    drange.com


                    10/30/2001 04:21
                    PM
                    Please respond to
                    rpg400-l






How is this done, or can it be done?

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