RE: OVERLAY in a DS having LikeDS and being based on a pointer

I will try that.


Thanks so much for your help

Jon Marasco

OfficeMax

Sr. Software Engineer
630-864-5101

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Stuart Rowe
Sent: Wednesday, November 14, 2012 12:12 PM
To: RPG programming on the IBM i / System i
Subject: Re: OVERLAY in a DS having LikeDS and being based on a pointer

Jon, you're not allowed to do it that way...

You can, however, make a DS, put the Ds_DSM00001 inside it, and overlay on
top of that.

Forgive my syntax:

SOMEDS DS qualified based(PtrFldListX)
Ds_DSM00001 likeds( Ds_DSM00001)
key 20a overlay( SOMEDS )
key1 10a overlay( key: 1 )
key2 10a overlay( key: *next )



Set PtrFldListX to some address (whatever you were going to do in the first
place) and wammo, you have key, key1 and key2 set to whatever's stored
there.

Alternately, make KEYDS a separate structure and put key, key1 and key2 in
it, and base THAT structure on the same PtrFldListX.
This way is not as apparent as the first way that the two ARE related, but
if you look carefully at the basing pointer name you'll catch it.


Stu







On Wed, Nov 14, 2012 at 9:42 AM, Marasco, Jon <JonMarasco@xxxxxxxxxxxxx>wrote:

Is it possible to use OVERLAY keyword in the below DS definition (OS is
6.1):

D Ds_DSM00001 DS LikeRec(DSM00001R:*Input)

D Ds_FldListX DS Based(PtrFldListX)
D LikeDS(Ds_DSM00001)
D key 20a OverLay(DS_FldListX)
D key1 10a OverLay(DS_FldListX)
D key2 10a OverLay(DS_FldListX:*Next)

Basically, the first 2 fields in Ds_DSM00001 I would like to redefine as
keys for sorting, in that, field key would equal the first 2 fields in
Ds_DSM00001 and field key1 would be the first field in Ds_DSM00001 and
field key2 would be the second field in Ds_DSM00001.

The above DS I get a compile error on and have tried various combinations,
all of which have not compiled.

Thanks for your help.



Jon Marasco
OfficeMax
Sr. Software Engineer
630-864-5101
--
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.