No Subject

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

   Is it possible to have a basing pointer on a DS subfield?  If not, why?

   What I would effectively like to do is "redefine" DS fields in another 
DS.  When dealing with outputting multiple "formats" of the same data, it 
would be much easier to have multiple DS's with different layouts, but have 
the subfields point to the same data.

  This would eliminate multiple EVALs and would probably be a lot more 
efficient, if it can be done.


Example:

D    DS
D A            LIKE( AA )
D B            LIKE( BB )
D C            LIKE( CC )

D    DS
D D            LIKE( AA ) BASED( D@ )
D         6    INZ( 'Space1' )
D E            LIKE( BB ) BASED( E@ )
D         6    INZ( 'Space2' )
D F            LIKE( CC ) BASED( F@ )

C         EVAL D@ = %Addr( A )
C         EVAL E@ = %Addr( B )
C         EVAL F@ = %Addr( C )

   Is this permissible or is there another way to do this w/o doing EVALs on
each field?  By setting a pointer I can do it once in the *InzSR and not have
it in-line or possibly in multiple places.

   Thanks.

   -mark

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