Re: Data Structure redefinition

["M. Lazarus" <mlazarus@xxxxxxxx>]

Peter,

At 11/1/00 04:30 PM -0800, you wrote:
>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.


>Example:
>
>----------------
>D DS1    DS
>D  A               LIKE( AA )
>D  B               LIKE( BB )
>D  C               LIKE( CC )
>D            12    inz(*blanks)
>
>D DS2    DS        based(ptrDS1)
>D  D               LIKE( AA )
>D             6    INZ( 'Space1' )
>D  E               LIKE( BB )
>D             6    INZ( 'Space2' )
>D  F               LIKE( CC )
>
>D ptrDS1 S     *   inz(%addr(DS1))
>----------------
>
>No EVAL's required. Note that the lengths of the data structures should
>match or you'll undoubtedly get "unexpected results".

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