Re: How do I set up a two dimensional array?

Vincent,

Don't use the LIKEDS keywords.  Define your data structure as:

D #Branches       C                   50

D Branches        S              2S 0 Dim( #Branches )

D Array           DS                  Qualified Dim( 100 )
D  Control                       3A
D  Currency                      3A
D  Type                          3A
D  Income                       13P 2 Dim( #Branches )
D  Capital                      13P 2 Dim( #Branches )
D  Market                       13P 2 Dim( #Branches )
D  Count                         9S 0 Dim( #Branches )
Then you reference a value in the array as:

Array( Row ).Income( Branch )

Array( Row ).Control

Paul

-- 
Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333

"Forbes, Vincent" wrote

> My users want me to create a summary extract of account values.  I am
trying
> to define a two dimensional array which has as:
>
> Columns
> - Branch & within each
> o Income
> o Capital
> o Market
> o Count
>
> Rows
> - Acc Control
> - Currency
> - Acc Type
>
> It would look something like this.
>
> Acc Ctl CCY Acc Typ Br10 Inc Br10 Cap Br10 Mkt Br10
> Count Br11 Inc Br11 Cap Br11 Mkt Br11 Count Br20
> Inc Br20 Cap Br20 Mkt Br20 Count
> ETA CDN A0 1.00 2.00 3.45 4 6.60 5.55 6.66
> 6 6.22 5.66 66.66 6
> IPS USA 10 2.22 3.33 4.44 5 5.22 5.66 8.88
> 8 202.22 2.20 3.33 4
> PPS EUR 2B 9.99 8.88 7.07 7 6.66 5.55 4.44
> 3 3.33 2.22 1.11 1
>
> This is what I have so far.
>
>      D Br                             2S 0 Dim(50)
>       *
>      D Key             DS
>      D Ctl                            3A
>      D CCY                            3A
>      D Typ                            2A
>       *
>      D Data            DS
>      D Inc                           13P 2
>      D Cap                           13P 2
>      D Mkt                           13P 2
>      D Cnt                            9S 0
>       *
>      D Array           DS                  Qualified Dim(200)
>      D Row                                 LikeDS(Key)
>      D Col                                 LikeDS(Data) Dim(50)
>
>
>
> \Vincent