RE: DDS arrays

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

Another approach uses an externally defined data structure with an array
overlay:

Dcodefrec       e ds                  extname(codeflc01) inz   
D D6                       1     30p 0 dim(6)

Note that the beginning and end of D6 are arbitrary and just accomodate six
9 packed numbers (I hope.)  The beginning should be the offset of the first
field and the end should be the end of the last field.  Don't know if it has
any advantage at all over the pointer method.  I do know it violates style
criteria for overlays. I've used this a lot with records with buckets in
them.  Also works nice for moving one line of screen data into a file
record.

> -----Original Message-----
> From: Jim Langston [mailto:jlangston@conexfreight.com]
> Sent: Wednesday, November 03, 1999 7:47 AM
> To: RPG400-L@midrange.com
> Subject: Re: DDS arrays
> 
> 
> A                    R CODEFLC01
> <SNIP>
> A                       CFDX1          9P   0       
> COLHDG('Decimal Value 1')
> A                       CFDX2          9P   0       
> COLHDG('Decimal Value 1')
> A                       CFDX3          9P   0       
> COLHDG('Decimal Value 1')
> A                       CFDX4          9P   0       
> COLHDG('Decimal Value 1')
> A                       CFDX5          9P   0       
> COLHDG('Decimal Value 1')
> A                       CFDX6          9P   0       
> COLHDG('Decimal Value 1')
> 
> FCODEFLC01    IF                        K DISK
> 
> D ArrayPtr   P                *           INZ(%ADDR(CFDX1))
> D D6           P               9  0         DIM(6) BASED(ArraPtr)
> 
> Would that work in this case?  I remember hearing somewhere 
> that fields
> were not guaranteed to be contiguous in memory, is that true 
> for external
> declarations also?  If it would work this way, I think it 
> would be the way
> to go, everything is self documented.
> 
> This is what I am going to try to see if it works.
> 
> Thank you for your help, Eric, Douglas and Peter, I appreciate it.
> 
> Regards,
> 
> Jim Langston
> 
> <SNIP>
> 
> +---
> | 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
+---