RE: Data structure overlay *next failure

I'm not too sure why what you have doesn't work, but I think that the
following (untested!) should do what you're after. I'm pretty sure,
though, that you'll have to specify a length for the dummy XwrkC field.

D ParmDS DS INZ
D XEnd6 overlay(ParmDS)
D XWeeks overlay(ParmDS:*next)
D xFac overlay(ParmDS:*next)
D XBuyC overlay(ParmDS:*next)
D XPlnC overlay(ParmDS:*next)
D XPVnd overlay(ParmDS:*next)
D XDept overlay(ParmDS:*next)
D XITYP overlay(ParmDS:*next)
D XwrkC nn overlay(ParmDS:*next)
D XWrkC1 overlay(XwrkC)
D XWrkC2 overlay(XwrkC:*next)
D XWrkC3 overlay(XwrkC:*next)
D XWrkC4 overlay(XwrkC:*next)
D XWrkC5 overlay(XwrkC:*next)
D XWrkC6 overlay(XwrkC:*next)
D XWrkCA Like(xWrkC1) Dim(6)
D overlay(XwrkC)

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of darren@xxxxxxxxx
Sent: Wednesday, June 19, 2013 9:18 AM
To: midrange-RPG RPG message board
Subject: Data structure overlay *next failure


I'm having an issue creating arrarys over fields in a data structure. I
have something like the following, but the *next function doesn't work
with
the arrays. They seem to get their own memory, rather than being
overlaid
on the XWrkC* fields. I've seen lots of overlay examples, but I don't
see
them specify the actual data structure name in the overlay *next
command,
so I'm wondering if there is some restriction I haven't seen yet, where
you
aren't supposed to overlay on the data structure itself, but only on the
subfields. In this case, the fields are actually display file fields,
but
I've seen this behavior with independently declared fields as well.



D ParmDS DS INZ
D XEnd6 overlay(ParmDS)
D XWeeks overlay(ParmDS:*next)
D xFac overlay(ParmDS:*next)
D XBuyC overlay(ParmDS:*next)
D XPlnC overlay(ParmDS:*next)
D XPVnd overlay(ParmDS:*next)
D XDept overlay(ParmDS:*next)
D XITYP overlay(ParmDS:*next)
D XWrkC1
D XWrkC2
D XWrkC3
D XWrkC4
D XWrkC5
D XWrkC6
D XWrkCA Like(xWrkC1) Dim(6)
D overlay(ParmDS:*next)
D xItem1
D xItem2
D xItem3
D xItem4
D xItem5
D xItem6
D xItemA Like(xItem1) Dim(6)
D overlay(ParmDS:*next)