RE: Array overlay

[CWilt@xxxxxxxxxxxx]

Barbara (or anyone else)

Can you provide some more detail on what is going on here.  Specifically,
what's the relationship/use of MaxPtyAlpha and MaxPtyA?

Thanks,
Charles


> -----Original Message-----
> From: Barbara Morris [mailto:bmorris@xxxxxxxxxx]
> Sent: Thursday, July 22, 2004 10:13 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Re: Array overlay
> 
> 
> 
> And to eliminate the hardcoding of the dimension:
> 
>      D  MaxPtyAlpha                  
>      D         MaxPtyA                           Overlay(MaxPtyAlpha)
>      D    MaxPty1                    10i 0 Overlay(MaxPtyA:*next)
>      D    MaxPty2                    10i 0 Overlay(MaxPtyA:*next)
> ...
>      D    MaxPty8                    10i 0 Overlay(MaxPtyA:*next)
>      D    MaxPty9                    10i 0 Overlay(MaxPtyA:*next)
>      D    MaxPty                     10i 0 Overlay(MaxPtyAlpha) 
>      D                                     Dim(%Div(%Size(MaxPtyA)
>      D                                             :%Size(MaxPty1)))
> 
> --
> 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.
>