Steve,
The way your DS is defined, you will always get a 0 in num_count. This is because there is no array in your DS named "count". I assume you want the number of "transactions" so change your count subfield to num_transactions. Because a DS can have multiple arrays/ds arrays, your counter variable MUST share the name of the array that you want a count of.
Hope that helps,
Brian May
Director
Pre-Sales and Customer Solutions
Profound Logic Software
http://www.profoundlogic.com
937-439-7925 Phone
877-224-7768 Toll Free
The IBM i Modernization Experts
www.profoundlogic.com
UPCOMING WEBINAR
Make Modern Apps You’ll Love with Profound UI & Profound.js
Learn how to deliver beautiful business applications using RPG and Node.js.
REGISTER NOW ✎
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> On Behalf Of Steve Jones
Sent: Thursday, August 30, 2018 8: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
