Re: Interesting Programming Problem

[Mike <koldark@xxxxxxxxx>]

This is what I was looking for. I didn't know if it could be done this way
or not. Thanks Jon! I passed it onto the programmer.

On 9/5/06, Jon Paris <Jon.Paris@xxxxxxxxxxxxxx> wrote:
> >> Normally I would say a multi-dimensional array.
>
> Well as of V5R2 you can effectively use multi-dim arrays.
>
> The following appears to match the way you describe the data.  I'm not
> convinced it provides a solution but ...
>
>      d months          ds                  Dim(24) qualified
>      d  monthData
>      d   water                        7p 2 overlay(monthData)
>      d   trash                        7p 2 overlay(monthData: *next)
>      d   sewer                        7p 2 overlay(monthData: *next)
>      d   elements                     7p 2 overlay(monthData) dim(3)
>
>       /free
>          months(1).elements(1) = 0;
>
>
> P.S. Thanks for starting my day off by making me feel really old!  I first
> programmed for this particular problem about 30 years ago - sob, sob, sob
> ...
>
> Jon Paris
> Partner400
>
> www.Partner400.com
>
>
> --
> 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.