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

["Marasco, Jon" <JonMarasco@xxxxxxxxxxxxx>]

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.