Re: Array overlay

[rob@xxxxxxxxx]

Thank you.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com


|-----------------------------+-------------------------------------------|
|   Barbara Morris            |                                           |
|   <bmorris@xxxxxxxxxx>      |                                           |
|   Sent by:                  |                                         To|
|   rpg400-l-bounces@midrange.|      rpg400-l@xxxxxxxxxxxx                |
|   com                       |                                         cc|
|                             |                                           |
|   07/22/2004 09:13 AM       |                                    Subject|
|                             |      Re: Array overlay                    |
|         Please respond to   |                                           |
|      RPG programming on the |                                           |
|          AS400 / iSeries    |                                           |
|      <rpg400-l@xxxxxxxxxxxx>|                                           |
|                             |                                           |
|                             |                                           |
|-----------------------------+-------------------------------------------|






Jon Paris wrote:
>
> Mel's answer works, but I would suggest that an easier and less error
prone
> approach is to use a group field - i.e. do not define a length for
MaxPtyA -
> it is not needed. Like so:
>
> D  MaxPtyA
> D  MaxPty1                      10i 0 Overlay(MaxPtyA)
> D  MaxPty2                      10i 0 Overlay(MaxPtyA:*next)
> D  MaxPty3                      10i 0 Overlay(MaxPtyA:*next)
> etc. etc.
>
> The compiler will work out the size of MaxPtyA - you don't need to.

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.