RE: How to Define input fields into Array

Hi,

You're all really great.  And a special thanks to Loyd for taking the time to
spell this out for me.  Now if I could only get it to work I'd be in hunky dory
shape.  What I have is:
D   METINGAy           S                  dim(24) overlay(MEETINGS)
      ======>                                                aaaaaaa
*RNF3601 20 a      001600  Keyword is not allowed for a field definition;
keyword  ignored.
D                                     like(DECMTG)
D MEETINGS        DS
D  DECMTG
D  JANMTG
* ...
d  field22
d  field23
d  field24

TIA,

Gary Kuznitz

On 10 Jan 2002, at 15:56, Goodbar, Loyd (AFS-Water Vall wrote:

> Here is how I process identically sized fields. There may be other
> ways...
>
>  *** This code operates on the assumption that all the fields in
>  *** FIELDDS are the same size. field1..24 are in file somefile.
>
> fsomefile  up   e             disk
>
> d fieldds         ds
> d  field1
> d  field2
> d  field3
>  * ...
> d  field22
> d  field23
> d  field24
> d   fieldarray                        dim(24) overlay(fieldds)
>
> c     1             do        24            x
>  * manipulate FIELDARRAY(X) ---> points to field 1..24
>  *                  eval      fieldarray(x) = something
> c                   enddo
> c                   update    somefile
>
> HTH,
> Loyd
>
> -----Original Message-----
> From: Gary Kuznitz [mailto:docfxit@theoffice.la]
> Sent: Thursday, January 10, 2002 2:25 PM
> To: Midrange-l@midrange.com
> Subject: How to Define input fields into Array
>
>
> 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.