× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



It works!

thanks to all....


On Mon, Nov 5, 2018 at 5:55 PM Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.