Re: Defining a datastructure with an Array Overlay.

Bryce,

Consider using LIKEDS and the resulting QUALIFIED data structures

d lcapDS DS
d LCAP1
d LCAP2
d LCAP3
d LCAP4
d LCAP5
d LCAP6
d LCAP7
d LCAP8
d LCAP 7s 0 Dim(8) Overlay(lcapDS:1)

d flcapDS DS likeds(lcapDS)

d fdcapDS ds likeds(lcapDS)

d facapDS DS likeds(lcapDS)

You'd have to access the data like so
flcapDS.lcap1
or
fdcapDS.lcap(2)

But the EVAL-CORR op-code would give you a good way to move the data
between the structures.

HTH,
Charles

On Wed, Oct 7, 2009 at 7:24 AM, Bryce Martin <BMartin@xxxxxxxxxxxx> wrote:

Bing Bang Wham-O!

Well you just triggered to me how I got this to work before.  I had the
fields defined for the other ones in the display file.  I did it so that I
didn't have to move a bunch of data around.   I didn't remember doing that
before, but they are there.  Its been almost a year since I wrote this,
its tough to remember all the tricks one uses sometimes.  Nice catch.  Man
i wracked my brain last night trying to figure out why they wouldn't
compile.  I don't need all these fields in a display file, I just need
them to hold some corresponding data, so I guess I'll have to define each
field with the 7s 2.




Thanks
Bryce Martin
Programmer/Analyst I
570-546-4777



Simon Coulter <shc@xxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
10/07/2009 07:12 AM
Please respond to
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Defining a datastructure with an Array Overlay.







On 07/10/2009, at 10:02 PM, Bryce Martin wrote:

The compiler tells me that fLCAP1 through fLCAP8, fdcap1 through
fdcap8,
and facap1 through facap8 are undefined.  Undefined?  Why isn't LCAP1
through LCAP8 undefined?  Or one of the other half dozen sets of
datastructure fields?  I'm at a loss here, and this is driving me
crazy.
By the way, if I put a 7s 2 definition on the datastructure fields it
compiles and works fine.

Are the sub-fields the compiler finds acceptable defined elsewhere in
your code such as on file definition?

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         OS/400, i5/OS Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 2 6657 8251   Mobile: +61 0411 091 400        /"\
   Fax:   +61 2 6657 8251                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------



--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



--- This message (including any attachments) is intended only for the use of the individual or entity to which it is addressed and may contain information that is non-public, proprietary, privileged, confidential, and exempt from disclosure under applicable law. If you are not the intended recipient, you are hereby notified that any use, dissemination, distribution, or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us and destroy this message immediately. ---
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.