RE: MODS & MDA def/access

["tim" <tim2006@xxxxxxxxxxx>]

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?
>
>  
>
>  
>
>