Page 1 of 1
A node with no name?
Posted: Sat Aug 05, 2023 4:46 pm
by mmayer4
I have successfully used HTTPAPI in concert with both data-into and YAJL to read a JSON response. I'm very perplexed as how to read a response that looks like the following.
Code: Select all
[
{
"DealerTitle": "blah blah blah",
"DealerID": "blah blah blah",
"ContractID": "10526702",
"ContractNo": "D0404099",
"ServicesUsed": [
{
ServiceID": "12165005",
"ServiceName": "blahblahblah",
"Price": "75"
},
{
ServiceID": "121650",
"ServiceName": "blahblahblah",
"Price": "100"
}
],
}
]
It's an array that has no name. So I don't see how I could use data-into (with a YAJL parser) since a matching data structure needs a name. If I use YAJL there won't be a docNode to do a YAJL_ARRAY_LOOP.
Any suggestions?
Thanks!
Re: A node with no name?
Posted: Mon Aug 07, 2023 12:28 am
by jonboy49
Off the top of my head this would simply require targeting a DS array with DATA-INTO. I think the RPG will accept any name at the top level but since I’m just doing this on my phone I can’t look it up. Also if that doesn’t work I’m pretty sure YAJLINTO provides a way to name the root ele,ent. It is an option that Scott covers in his presentation.
Re: A node with no name?
Posted: Mon Aug 07, 2023 8:35 pm
by mmayer4
Thanks jonboy... I'll keep experimenting with data-into by just giving it a name. I've reviewed several of Scott's presentations on YAJL but I don't recall seeing anything about naming the root. I'll keep looking. If I find a solution, I'll follow up with a post on what worked.
Re: A node with no name?
Posted: Tue Aug 08, 2023 8:04 pm
by jonboy49
In case you are stuck I found time to play and see if my understanding was correct. Here's my version which handles your noname array just fine. RPG fills in the element count in the PSDS with the number of DS array entries, Similalrly I used countprefix to name the count for the inner array. This way allowmissing is not needed.
Here are the relevant code sections:
Code: Select all
Dcl-Ds PSDS PSDS;
elements int(20) Pos(372);
End-Ds;
Dcl-Ds noName Qualified Dim(99);
DealerTitle char(30);
DealerID char(12);
ContractID char(12);
ContractNo char(10);
num_ServicesUsed Int(5);
Dcl-Ds ServicesUsed Dim(99);
ServiceID char(10);
ServiceName char(30);
Price Packed(5:2);
End-Ds;
End-Ds;
Dcl-s fileName varchar(50)
inz('/Home/Paris/JsonStuff/arrayTest.json');
Data-Into noName
%Data(fileName
: 'case=any doc=file allowextra=yes countprefix=num_')
%Parser('YAJL/YAJLINTO');
{/code]
Re: A node with no name?
Posted: Tue Aug 08, 2023 9:08 pm
by mmayer4
Oh wow. I never would have thought the PSDS would come into play. This prompted me to actually read the documentation. lol.. Sure enough there she blows. I will test it out and see. Thanks so much!