Re: extract JSON with DATA_INTO blows up when var is blank ((from midrange-l))

You need a count_articles field in the DS since you are not INTOing
directly into the articles array.

Any time you have less elements than you said you would have you need a
count. The alternative is to use allowmissing which is s really bad idea.

So the start of the DS should be this:

dcl-ds return_array Qualified;
count_articles int(5);
dcl-ds articles dim(999) ;

Just tested it and it works fine - assuming that you had 3 articles in
that file!

An alternative would be to just target the articles array directly - then
RPG would automatically supply the count in the PSDS.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Nov 5, 2018, at 3:27 PM, Gerald Magnuson <gmagqcy.midrange@xxxxxxxxx>

wrote:

... I am so close...
to get Scott's parser (YAJLINTO) to read my json, I needed to add a over
arching ds (I just called it return_array)...

now the only trouble I have is I am getting a "reason code 2 - too few
array elements for array subfields..."
on my top array named "articles"... but that is dim(999), and there are
no more than 5 to 10 elements listed...

I have put the data structure, DATA-INTO statement, and raw JSON in the
following snip:
https://code.midrange.com/75aca1934e.html
--
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: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
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@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
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