SQLRPGLE program..

2307 dcl-ds return_array Qualified;

2308 count_articles int(5) ;

2309 dcl-ds articles dim(999) Qualified;

====> aaaaaaaaa

NF0202 20 a 003300 KEYWORD NOT ALLOWED FOR A NESTED DATA STRUCTURE
SUBFIELD.
2310 id int(10);

2311 itemNumber char(15);

2312 assetId char(15);

2313 userId char(64);

2314 vinNumber char(18);

2315 articleId int(10);

2316 systemId int(5);

2317 typeId int(5);

2318 articleSecondaryId char(15);

2319 description char(30);

2320 count_locations int(5) ;

2321 dcl-ds locations Dim(20) Qualified;

====> aaaaaaaaa
NF0202 20 a 004500 KEYWORD NOT ALLOWED FOR A NESTED DATA STRUCTURE
SUBFIELD.
2322 locationId int(10);

2323 locationLabel char(64);


On Wed, Jan 9, 2019 at 9:08 AM Brian May <bmay@xxxxxxxxxxxxxxxxx> wrote:

Can you provide a code sample? The substructures of a Complex Data
Structure are inherently qualified. I have never tried explicitly
specifying the qualified keyword for the substructures.

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Gerald
Magnuson
Sent: Wednesday, January 9, 2019 9:05 AM
To: RPG programming on the IBM i (AS/400 and iSeries) <
rpg400-L@xxxxxxxxxxxx>
Subject: qualified DS within a qualified DS

I have some code that is now not compiling because I have a Qualified DS
within another Qualified DS....
It has been a while since I have compiled this code, so I take it we
shouldn't do this anymore???
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://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: https://amazon.midrange.com
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://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: https://amazon.midrange.com


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-2019 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].