RE: Moving array elements to a file

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

Oops... PTF needed for my example: :)

 If the file is externally described, then it will bring in QTY1, QTY2,
 QTY3... QTY366.

 There is no way to map them directly into an array named QTY. :(
 You have to do a data structure

 D  Input       E DS                ExtName(InputFile)
 D* .... input data fields will appear here (including QTY1... QTY366)
 D

****************** CORRECT LINE FOLLOW ***********************
> D pData          S              *  Inz(%addr(QTY1))
 D LargeArray     S                 Dim(366) Like(Qty1) based(pData)

 D WorkArray      S                 Dim(366) Like(Qty1)


 In your program the array you're filling up with the quantities is
named
 WORKARRAY. You would then just move that array to the LARGEARRAY field
 and it should work fine---no need to move in a DO Loop.

 C                 MOVE   WORKARRAY              LARGEARRAY

 Bob Cozzi
 cozzi@rpgiv.com
 Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum