RE: DDS arrays

My understanding is there is one continuous buffer.  When you look at a
dump, all fields that are defined continuous in the source are continuous in
the buffer.  It should work.  No matter where you place the fields on the
screen.  Just make sure that no one resort the fields with SDA if the fields
are not continuous on the screen. :-)

Good Luck,

Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.         http://www.cross-check.com
6119 State Farm Drive    Phone: 707 586-0551 x 1102
Rohnert Park CA  94928 Fax: 707 586-1884

*Note to Recruiters
Neither I, nor anyone that I know of, is interested in any new and/or
exciting positions. Please do not contact me.

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