Re: YAJINTO with null

Yes that ptf is loaded.
Here is the entire DS
Dcl-ds result qualified dim(100);
processed_at char(10);
po_number char(7);
invoice_number char(10);
Dcl-ds totals;
tax char(10);
End-ds;
num_line_items int(10);
Dcl-ds line_items dim(100);
qtyship char(15);
item char(200);
extprice char(15);
End-ds;
End-ds;

data-into result %Data('/paytrace/R1345b.json'
:'doc=file case=any allowmissing=yes -
allowextra=yes countprefix=num_')
%PARSER('YAJLINTO');

I just got this to work by doing;
Qtychar = result(x).totals.tax;
If Qtychar <> '*NULL';
StateTax = %Dec(QtyChar:7:2);
Endif;


On Tue, Jan 29, 2019 at 11:05 AM Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

Do you have this PTF loaded ?
http://www-01.ibm.com/support/docview.wss?uid=nas3SI68421 <
http://www-01.ibm.com/support/docview.wss?uid=nas3SI68421> it dealt with
a number of issues with null/empty JSON elements.

You haven't shown your DATA-INTO statement and there are no count fields
in the DS so I'm guessing you have allowmissing=yes in there?


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Jan 29, 2019, at 9:50 AM, Steve Jones <sjones@xxxxxxxxxxxxxxx> wrote:

I am returning a json object that sometimes has a field that contains
"null", tax in the example below: How can I code my program to handle

this

field when it is null? I am loading up result using data-into

processed_at "2019-01-29T13:47:58+00:00"
po_number "P347235"
invoice_number "400623985"
totals
net "462.31"
tax null
total "462.31"
carriage null
Dcl-ds result qualified dim(100);
processed_at char(10);
po_number char(7);
invoice_number char(10);
Dcl-ds totals;
tax char(10);
End-ds;














--
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@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

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (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