× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.