Re: Data Arrays

["Sims, Ken" <KSIMS@xxxxxxxxxxxxxxxx>]

Hi Peter -

>    D abc        DS        10 (occurrences that is)
>    D  abc1                    10A
>
>    D xyz        DS                based(ptrXYZ)
>    D  xyz1                    10A
>
>    c     1        occur    abc
>    c              eval     ptrXYZ = %addr(abc)
>    c     2        occur    abc
>
>    c              if        abc1 = xyz1 (this is comparing 2 different
>occurrences)
>    c                ...
>    c              endif
>
>As I said, I haven't actually tried this, but my understanding is that
after
>the 2nd OCCUR stmt, the xyz data structure is still pointing to the 1st
>occurrence. The %addr(abc) returns a pointer to whatever the current
>occurrence is.

As the one who mentioned this previously, I can assure you it does work.  I
have a program that I wrote recently where I have two pointer-based data
structures so that I can use three occurences simultaneously: one using the
actual MODS and two more using the two pointer-based data structures.

Ken
Southern Wine and Spirits of Nevada, Inc.
Opinions expressed are my own and do not necessarily represent the views of
my employer or anyone in their right mind.

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---