RE: qualified DS within a qualified DS

Yep, the keyword is unnecessary. You are saying it allowed you to compile like that at one time in free format?

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

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 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