Re: MODS & MDA def/access

["Peter Dow (ML)" <maillist@xxxxxxxxxxxxxxx>]

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