I'm away from my desk, but I think I remember that the LIKEDS keyword must be the first.
That being said. All data structures defined with LIKEDS are qualified automatically, so the QUALIFIED keyword is redundant.
Brian May
Director
Pre-Sales and Customer Solutions
Profound Logic Software
http://www.profoundlogic.com
937-439-7925 Phone
877-224-7768 Toll Free
The IBM i Modernization Experts
www.profoundlogic.com
Profound.js: Agile, Connected, Secure
Bring the benefits of Node.js and Agile Modernization to your IBM i Enterprise
Click here to learn more
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Englander, Douglas
Sent: Friday, July 28, 2017 9:52 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Qualified data structures
We are on V7.1
I have a subprocedure in a module. It has this code in it as follows:
dcl-ds ds_last_no qualified likeds(co2no);
dcl-ds ds_last_op likeds(co2op);
dcl-ds co2no extname('CXIONR08NO' : *all) prefix('' : 2)
qualified
end-ds;
When I compile this using option 15 of PDM, the compile hangs. If the code is changed to this:
dcl-ds ds_last_no likeds(co2no);
dcl-ds ds_last_op likeds(co2op);
dcl-ds co2no extname('CXIONR08NO' : *all) prefix('' : 2)
qualified
end-ds;
the compile completes.
Does anyone know if there is a PTF that fixes this? I would expect that if the "qualified" should not be there, that the compiler would throw a message out instead of hang and never complete.
Thank you,
Doug
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (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.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD
midrange.com
