Home Applications function-ISJSON

function-ISJSON

This application is not supported by InterSystems Corporation. Please be notified that you use it at your own risk.
4
1 reviews
0
Awards
335
Views
39
IPM installs
6
2
Details
Releases  (10)
Reviews  (1)
Issues
Articles  (1)
A function to check if string is JSON object

What's new in this version

apply tiny dockerfile build

function to check string if JSON object

It’s also an example of a customized SystemFunction extension (ZZISJSON) in Caché & IRIS
This time it is to be included in %ZLANGF00.mac

A JSON string is mostly imported from file or over REST
You rely on a clean and compatible structure. This is the check.

required: ZPretty.mac
available here https://github.com/rcemper/ZPretty-1
or included in this repo in ZZISJSON.xml for classic install
or on OEX: https://openexchange.intersystems.com/package/ZPretty
or

USER>ZPM "install pretty-json"

demo

USER>set jsn="{'Name':'Li,Robert K.','SSN':'672-92-9664','DOB':'1975-01-12','Home':{'Street':'986 Washington Blvd','City':'Boston','State':'PA','Zip':'95802'},'Office':{'Street':'6012 First Place','City':'Reston','State':'MT','Zip':'77739'},'Spouse':{'Name':'Avery,Zelda H.','SSN':'323-13-7437','DOB':'1943-03-27','Home':{'Street':'196 Main Drive','City':'Youngstown','State':'WY','Zip':'53229'},'Office':{'Street':'4056 Franklin Court','City':'Bensonhurst','State':'IA','Zip':'27688'},'FavoriteColors':['Black'],'Age':77},'Age':45,'Title':'Associate Marketing Manager','Salary':10421}"
USER>ZWRITE jsn  
jsn="{'Name':'Li,Robert K.','SSN':'672-92-9664','DOB':'1975-01-12','Home':{'Street':'986 Washington Blvd','City':'Boston','State':'PA','Zip':'95802'},'Office':{'Street':'6012 First Place','City':'Reston','State':'MT','Zip':'77739'},'Spouse':{'Name':'Avery,Zelda H.','SSN':'323-13-7437','DOB':'1943-03-27','Home':{'Street':'196 Main Drive','City':'Youngstown','State':'WY','Zip':'53229'},'Office':{'Street':'4056 Franklin Court','City':'Bensonhurst','State':'IA','Zip':'27688'},'FavoriteColors':['Black'],'Age':77},'Age':45,'Title':'Associate Marketing Manager','Salary':10421}"

USER>if $ZZISJSON(jsn) write "OK"
OK

USER>set is(1)=$ZZISJSON(jsn),is(2)=$ZZISJSON(jsn_",home:") zwrite is
is(1)=1
is(2)=0

Article in DC

Made with
Install
zpm install isjson download archive
Version
1.0.726 Nov, 2024
ObjectScript quality test
Category
Technology Example
Works with
CachéEnsembleInterSystems IRIS
First published
22 Jul, 2020
Last checked by moderator
26 Nov, 2024Doesn't work