× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Array as a field name?
  • From: booth@xxxxxxxxxxxx
  • Date: Mon, 14 May 2001 20:05:54 -0400


Using the sort of coding you have there I might try my C-specs this way:

 * Update HBI Customer Master Extension File
C     CUSNO         CHAIN (E) MONTHTOT
*
* Record Found; Update File Field
C                     IF      %Found

C                     Select
C                     When    UMONTH = 01
C                     Eval    Month01 = Month01 + CurTotal
C                     When    UMONTH = 02
C                     Eval    Month01 = Month02 + CurTotal
C                     When    UMONTH = 03

C                     Eval    Month01 = Month03 + CurTotal
C                     When    UMONTH = 04

C                     Eval    Month01 = Month04 + CurTotal
C                     When    UMONTH = 05

C                     Eval    Month01 = Month05 + CurTotal
C                     When    UMONTH = 06

C                     Eval    Month01 = Month06 + CurTotal
C                     When    UMONTH = 07

C                     Eval    Month01 = Month07 + CurTotal
C                     When    UMONTH = 08

C                     Eval    Month01 = Month08 + CurTotal
.... til 12 months
C                     EndSl


C                     Update  MONTHTOT
C                     ENDIF





_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________



"Frank Kany" <frank.kany@hanoverfoods.com>
Sent by: owner-rpg400-l@midrange.com

05/14/2001 05:07 PM
Please respond to RPG400-L

       
        To:        "RPG Mailing List \(E-mail\)" <RPG400-L@midrange.com>
        cc:        
        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
+---




As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.