Re: Compile Time Array in a Module

I would suggest dumping the compile time table/array and going for 
something like:
     D                 DS
     D DayData                       42    Inz('Mon   Tues  Wednes+
     D                                          Thurs Fri   Satur Sun   ')
     D DayArray                       6    Overlay(DayData) Dim(7)

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




"Buzz Fenner" <bfenner@jonesborocwl.org>
Sent by: rpg400-l-bounces@midrange.com
01/24/2003 05:49 PM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     "RPG Discussion" <RPG400-L@midrange.com>
        cc: 
        Fax to: 
        Subject:        Compile Time Array in a Module


Hi all, ILE newbie here.  I've converted an RPGIII program and I want to
change into a procedure module that I can then bind together with other
modules.  The code has several arrays utilizing compile-time data.  Module
creation fails stating that the use of CTDATA is not allowed in a
subprocedure.  Where can I find out what I'm doing wrong?

     19 D TAB1A           S              1    DIM(18) CTDATA PERRCD(18)
 ======>                                                      aaaaaa 
bbbbbb
 *RNF3757 20 a      001900  The keyword is not valid for definitions in
subprocedures.
 *RNF3757 20 b      001900  The keyword is not valid for definitions in
subprocedures.

Buzz Fenner
Programmer/Analyst
mailto:bfenner@jonesborocwl.org


_______________________________________________
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/mailman/listinfo.cgi/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.