Re: Array as a field name?

Frank,

You can try this:


      * Redefine the field names from your file as a data structure
     D MonthsDS        DS
     D  MONTH01
     D  MONTH02
     D  MONTH03
     D  MONTH04
     D  MONTH05
     D  MONTH06
     D  MONTH07
     D  MONTH08
     D  MONTH09
     D  MONTH10
     D  MONTH11
     D  MONTH12
      *
      * Then define an array that overlays the data structure
     D  MthsAry                            Like(MONTH01) Dim(12)
     D                                     Overlay( MonthsDS )
      *
      *
      * Now you can access each field as an array element, or by name
     C                   Eval      MONTH01    = 1
     C                   Eval      MthsAry(1) = 1




John Taylor
Canada

----- Original Message -----
From: "Frank Kany" <frank.kany@hanoverfoods.com>
To: "RPG Mailing List (E-mail)" <RPG400-L@midrange.com>
Sent: Monday, May 14, 2001 15:07
Subject: Array as a field name?


> I have a file that has a field for each month of the year(each field holds
> the amount of pallets used that month).
>
> FILE:  MONTHTOTAL
>
>       A          R RECORD                   PFILE(FLDREF)
>       A             CUSNO
>       A             MONTH01
>       A             MONTH02
>       A             MONTH03
>       A             MONTH04
>       A             MONTH05
>       A             MONTH06
>       A             MONTH07
>       A             MONTH08
>       A             MONTH09
>       A             MONTH10
>       A             MONTH11
>       A             MONTH12
>       A         K  CUSNO
>
> When pallets get added or subtracted from the warehouse I want to update
> this file.  Since this is May(MONTH05), I would like to update only field
> 'MONTH05' with the correct data.
>
> Is there a way to use an array as a field name?
> example:
>  *
>  * Array Index
> D X               S              2P 0
>   *
>   * Save Current Month into a work field
>  C                   MOVEL     UDATE         X              2 0
>  *
>  * Update HBI Customer Master Extension File
> C     CUSNO         SETLL     MONTHTOT
> C     CUSNO         CHAIN     MONTHTOT                           90
>  *
>  * Record Found; Update File Field
> C     *IN90         IFEQ      *OFF
> C                     EVAL              MONTH(X)  = CURTOTAL
> C                     ENDIF
>
> Thank you,
>
> Frank Kany


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---