Re: How to Define input fields into Array

[rob@xxxxxxxxx]

CREATE TABLE ROB/ARRAYFILE (KEYFLD CHAR (10 ) NOT NULL WITH
DEFAULT, ARY1 DEC (5 , 0) NOT NULL WITH DEFAULT, ARY2 DEC (5 , 0)
NOT NULL WITH DEFAULT, ARY3 DEC (5 , 0) NOT NULL WITH DEFAULT)
Table ARRAYFILE in ROB created but could not be journaled.
INSERT INTO ROB/ARRAYFILE VALUES('A', 1, 2, 3)
1 rows inserted in ARRAYFILE in ROB.

     fARRAYFILE IF   E           K DISK    RENAME(ARRAYFILE:ARRAYREC)
     f                                     INFDS(HIYA)
     d MyArray         s                   like(ary1) dim(3)
     d                                     based(pMyArray)
     d pMyArray        s               *   inz(%addr(ary1))

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



                    "Gary Kuznitz"
                    <docfxit@theoffice.       To:     Midrange-l@midrange.com
                    la>                       cc:
                    Sent by:                  Fax to:
                    midrange-l-admin@mi       Subject:     How to Define input 
fields into Array
                    drange.com


                    01/10/2002 03:24 PM
                    Please respond to
                    midrange-l






Hi,

I have a file that is externally describe.  24 of the fields I need to
process
identically and I would like to process them with an array.  The array I
have
setup is:
D MEETINGS        S              5    DIM(24)

Is there an easy way to re-define the input specs to get all the fields
into the
array?  Or do I have to enter them into the array in calcs? I'm using
RPGILE
V4R4.

TIA,

Gary Kuznitz

PS:  I'd appreciate it if you could show me an example in code.
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.