|
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 +---
As an Amazon Associate we earn from qualifying purchases.
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.