Re: Data Structure redefinition

["Peter Dow" <pcdow@xxxxxxxxxxxxxxx>]

Hi Mark,

In my example, the only thing that has to match is the total lengths of the
data structures. The pointer makes the 2nd data structure point to the same
area as the 1st. To make it a little clearer, how about:

D DS1    DS
D  A          3a
D  B          5s 0
D  C         11p 2
D            12    inz(*blanks)

Note that the total length of DS1 is 26 bytes.

D DS2    DS        based(ptrDS1)
D  D         15p 5
D  E         18a

Note that the total length of DS2 is also 26 bytes.

D ptrDS1 S     *   inz(%addr(DS1))

Now both DS1 and DS2 occupy the same memory positions. Is that what you're
after?

HTH,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

From: "M. Lazarus" <mlazarus@ttec.com>
> >If I understand what you're trying to do, why not have the 2nd data
> >structure point to the 1st?
>
>   Because they don't match!  I don't want them to look exactly alike.  I
> just have a bunch of common fields that I would like to point to the same
area.


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

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