How do I set up a two dimensional array?

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