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



Dang I knew it was that simple!!

Yes I am using data-into with allowextra=yes to handle all the fields we do
not need.

Thank you Scott.

On Fri, Mar 22, 2019 at 3:21 PM Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>
wrote:

Hi Steve,

You haven't told us how you're going about reading this JSON file.

Since you're showing us a data structure, can we assume you're using
DATA-INTO?

DATA-INTO requires fields to have the same names. Your JSON object has
a field named 'Results' in it, but your DS has a field named 'Stuff'
instead. These would need to match for this to work. Also, your JSON
'Results' has subfields named PK, Name, and isLocation that aren't in
your RPG DS, so you'd either need to define these, or use something like
"allowextra" to avoid getting an error.

But all of that advice is contingent on you using data-into. If you're
using some other method, then please explain.

-SK

On 3/22/19 11:56 AM, Steve Jones wrote:
I am trying to read a json file we are getting from a vendor & I am on
the
struggle bus.
I get data in Total, but not into my array Stuff.


My DS is:
Dcl-ds Assets Qualified;
Dcl-ds Stuff dim(100);
ID char(50);
IsUp ind;
End-ds;
Total packed(3:0);
End-ds;

The json file looks like below.

Raw data looks like:

{"Results":[{"PK":4,"ID":"MAINFACILITY","Name":"Main
Facility","IsLocation":true,"IsUp":true}],"Total":64}

Pretty looks like:
Results
0
PK 4
ID "MAINFACILITY"
Name "Main Facility"
IsLocation true
IsUp true
Total 64--
Steve Jones
H-P Products, Inc
330-871-2054

--
Scott Klement
http://www.scottklement.com

--
This is the RPG programming on IBM i (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




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.