RE: MODS & MDA def/access

Thanks peter...

Tested and works great!!!

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Peter Dow (ML)
Sent: Friday, March 14, 2008 2:59 PM
To: Midrange Systems Technical Discussion
Subject: Re: MODS & MDA def/access

Hi Tim,

Prior to your email, I'd done 2d arrays, but yours is 3d, so I had to
try it. The following compiles successfully:

d Client ds dim(7000) qualified
d YearData dim(3) likeds(YearDS)

d YearDS ds based(template) qualified
d Sales 11p 2 dim(12)
d Fees 11p 2 dim(12)
d Balance 11p 2 dim(12)

d cx s 5i 0
d mx s 5i 0
d yx s 5i 0
/free
dsply Client(cx).YearData(yx).Sales(mx);
*inLR = *on;
return;
/end-free

hth,
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /


tim wrote:

Im looking to store/access the following:



By client,



Sales/fees/balance for each of the last 3 years broken down into 12

months.

So, If I could do this, it would be something like this:



d cmods ds occurs(7000)

d sales$ 11 2 dim(3:12)

d fees$ 11 2 dim(3:12)

d balance$ 11 2 dim(3:12)





I would load the data as follows:



%occur(cmods) = %lookup(client:ca);

Sales$(x:y) += s$;





I know I cant do this in rpg/free in this format, but not sure how to do

it.

Any suggestions?