There is a bug in DATA-INTO whereby it does NOT handle empty JSON arrays.
It sounds like the same behavior I saw when reporting to IBM. They're hoping to fix by end of September - that didn't help me.
Open a PMR so you can be notified.
Greg
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Steve Jones
Sent: Thursday, August 30, 2018 9:14 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Data-into countprefix
I have the following json ds & the data-into
Dcl-ds result qualified;
success ind;
num_count int(10);
Dcl-ds transactions dim(500);
transaction_id varchar(20);
transaction_type varchar(20);
amount packed(10:2);
Dcl-ds billing_address;
name varchar(80);
End-ds;
Dcl-ds created;
at varchar(25);
by varchar(40);
End-ds;
End-ds;
End-ds;
Clear result;
data-into result %Data(outFile
:'doc=file case=any allowmissing=yes -
allowextra=yes countprefix=num_')
%PARSER('YAJLINTO');
I then check result.num_count > 0;
but it comes back as 0, yet there are 17 transactions.
I do a similar check in another program & the result.num_count works.
I am missing something, but I don't see it :-(
--
Steve Jones
H-P Products, Inc
330-871-2054
--
NOTE: The information in this email is confidential and may be legally privileged. If you are not the intended recipient, you must not read, use or disseminate the information; please advise the sender immediately by reply email and delete this message and any attachments without retaining a copy. Although this email and any attachments are believed to be free of any virus or other defect that may affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by H-P Products, Inc. for any loss or damage arising in any way from its use.
--
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:
http://amzn.to/2dEadiD
midrange.com
