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

Vincent,

I'm not quite following what you are asking for....but something about your 
DS's strikes me as not being quite right.

Perhaps you could show how you expect to be able to access the data.

For instance do you want it like so:

branch(x).income =
branch(x).capital = 
branch(x).market =
branch(x).count =

branch(x).data(i).accControl =
branch(x).data(i).currency =
branch(x).data(i).type =




Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Forbes, Vincent
> Sent: Monday, February 07, 2005 3:33 PM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: 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
> 
> 
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>