Re: Moving array elements to a file

Overlay the file fields with an array inside of a data structure.

This is one that I use for a display that rolls our production per day.

#DayCols stands for Day Columns. Day1 thru Day10 are fields in the display
file. Then there is the array.
When you update the array you are updating the display fields at the same
time.

Hope that helps.

 ** Header Date Columns
D                 DS
D#DayCols
D Day1                                Overlay(#DayCols:*Next)
D Day2                                Overlay(#DayCols:*Next)
D Day3                                Overlay(#DayCols:*Next)
D Day4                                Overlay(#DayCols:*Next)
D Day5                                Overlay(#DayCols:*Next)
D Day6                                Overlay(#DayCols:*Next)
D Day7                                Overlay(#DayCols:*Next)
D Day8                                Overlay(#DayCols:*Next)
D Day9                                Overlay(#DayCols:*Next)
D Day10                               Overlay(#DayCols:*Next)
D#DayColsArr                          Like(Day1) Overlay(#DayCols)
D                                     Dim(10) Inz


Patrick Conner
www.ConnecTown.com
(828) 244-0822



                    Tyra_Brodsky@vfc.
                    com                      To:     rpg400-l@midrange.com
                    Sent by:                 cc:
                    rpg400-l-admin@mi        Subject:     Moving array elements 
to a file
                    drange.com


                    12/17/01 03:00 PM
                    Please respond to
                    rpg400-l






Hi:

I have a file that has warehouse, sku and 366 quantity fields (one for each
day of the year).

My program calculates the quantity in an array (366 elements...one for each
day of the year).

I know that I can individually move the array elements to the file fields.
I also know I can create a data structure for the file fields and then move
the array to the data structure in a do loop.

Is there another way where I don't have to redefine my output file?

Thanks

Tyra Brodsky
Sr. Programmer Analyst
The North Face, Inc.


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.