You only specify the QUALIFIED keyword on the first data structure.
Ie "return_array"

Dcl-ds hello Qualified Inz;
Id Int(10);

Dcl-ds Here Dim(10);
Id Int(10);

Dcl-ds There;
ID Varchar(20);
End-ds;
End-ds;
End-ds;

Hello.Here.There.Id = "What";

Chris Hiebert
Senior Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Gerald Magnuson
Sent: Wednesday, January 9, 2019 8: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);



This thread ...

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