Vertical Arrays in RPGIII

[glowz]

Hello All,
It has been many, many years since I have had to create a report and divide it in to 3 vertical columns.

ie,

Nbr:xxxx Nam:xxxx Nbr:xxxx Nam:xxxx Nbr:xxxx Nam: xxxx
Wk/Yr Loc Amt$ Wk/Yr Loc Amt$ Wk/Yr Loc Amt$

10/2007 A 456.00 10/2007 B 1245.00 10/2007 C 565.00
etc. For 15 weeks of data for each Nbr/Name

I know that I need to use arrays to accomplish this, but I can't for the life of me, remember how to do it. I would be grateful for any help or being pointed in the right direction. (I have to code this in RPGIII, as I have not yet learned RPGIV - I hope to, soon!)
Thank you so very, very much!

thread317-426806

 

[flapeyre]

Use a multiple-occurance data structure and just loop through it.

     i*Area for valid subfile account inclusion list entries 
     IMDSACC      DS                         [COLOR=red]25 <== Number of occurances[/color]              
     I                                        1   4 FACMDS   
     I                                        5   8 FSAMDS

Tibi gratias agimus quod nihil fumas.