Re: Validating JSON Data in a Host Variable

On Feb 1, 2018, at 12:37 PM, Buck Calabro <kc2hiz@xxxxxxxxx> wrote:

On 2/1/2018 3:51 AM, Craig Richards wrote:

But if you just have the document in a Host Variable, is there an easy way
to validate it?

dcl-s testVar char(1024);
dcl-s isJSON char(1);

isJSON = '*'; // eyecatcher
testVar =
'{-
"message": "Hello!",-
"destination": "world"-
}';


exec sql
with test_json (json_string) as
( values(:testVar) )
select
case
when json_string is json object
then 'Y'
else 'N'
end as valid_json
into :isJSON
from test_json
;

dsply sqlstate;
dsply isJSON;

*inlr = *on;

--
--buck

http://wiki.midrange.com
Your updates make it better!

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