Re: null for YAJLINTO

You have not shown us what value you told YAJLINTO to use for null. I'm guessing you used the default.

By default it wants to use '*NULL' which is OK for char fields but will cause an error when attempting to assign to the packed value risk_index.

You have either got to change what value is used via the appropriate option - or change the definition of risk_index to char and then convert it to a numeric when needed later.

You'll find it all describe3d here: https://authory.com/JonParisAndSusanGantner/YAJL-Meets-DATA-INTO <https://authory.com/JonParisAndSusanGantner/YAJL-Meets-DATA-INTO>


Jon

On Aug 4, 2020, at 1:17 PM, Raul Alberto Jager Weiler <raul.jager@xxxxxxxxx> wrote:

I received a json document with some fields null, and that causes RNX 0356
"jsondoc.operation.security_information.risk_index."
This is the document I get:
below is the DS: What can I do?
__________________________________________
{
"operation": {
"token": "3910336e4940927c95d8fb8a4be48a9f",
"shop_process_id": 13813001,
"response": "S",
"response_details": "Procesado Satisfactoriamente",
"amount": "48000.00",
"currency": "PYG",
"authorization_number": null,
"ticket_number": "2466114087",
"response_code": "58",
"response_description": "Transaccion denegada",
"extended_response_description": "EL ESTADO SWITCH DEL
CLIENTE/SUCURSAL ESTA INACTIVO \"I\" - GET024",
"security_information": {
"customer_ip": "201.217.58.22",
"card_source": null,
"card_country": null,
"version": "0.3",
"risk_index": null
}
}
}
______________________________________________
dcl-ds jsonDoc qualified;
dcl-ds operation;
token char(32) ;
shop_process_id packed(15) ;
response char(1) ;
response_details varchar(60) ;
amount packed(15: 2) ;
currency char(3) ;
authorization_number char(6) ;
ticket_number packed(15) ;
response_code char(2) ;
response_description varchar(40) ;
extended_response_description varchar(150) ;
dcl-ds security_information;
customer_ip varchar(40) ;
card_source char(1) ;
card_country varchar(60) ;
version varchar(5) ;
risk_index packed(1) ;
end-ds;
end-ds operation;
end-ds;
--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com