how to convert JSON to object in cache 2010 version

Question

Question

Token Ibragimov · Feb 22, 2019

#JSON #Caché

Hello,

I'm trying to convert JSON response to object in cache 2010.

My Code is bellow:

set sc = ##class(%ZEN.Auxiliary.jsonProvider).%ParseJSON(resptext,,.pObject,1)

my JSON response

{"access_token":"DSAFFDSGFDGTRHTRHTRH","in":"2522","refresh":"","scope":"send","token_type":"Bearer"}

the result : "9@%ZEN.proxyObject"

Discussion (6)0

Log in or sign up to continue

Eduard Lebedyuk · Feb 22, 2019

Looks like it works correctly.

write pObject

outputs the object oref.

If you want to display the whole object, use zwrite:

zwrite pObject

If you need a specific property, access them like this:

write pObject."access_token"

write pObject.in

0 0

score 0 · Answer 1 · 2019-02-22T04:45:19-05:00

Hello Eduard! Thank you for feedback.

In my case it doesn't work, the output:

Set ^tk("object")=pObject
Set ^tk("access_token1")=pObject."access_token"
Set ^tk("access_token2")=pObject.in

the response:

^tk("respText")="{""access_token"":""4SDFDSFDSF-aSDASDASD"",""expires_in"":""3300"",""refresh_token"":"""",""scope"":""sms_send"",""token_type"":""Bearer""}"

^tk("access_token1")=""
^tk("access_token2")=""

^tk("object")="9@%ZEN.proxyObject"

score 0 · Answer 2 · 2019-02-22T05:04:57-05:00

What will the following code output?

USER>k arr d pObject.%CopyToArray(.arr) zw arr

PS: "in" ≠ "expires_in"

score 0 · Answer 3 · 2019-02-22T05:30:04-05:00

Token Ibragimov · Feb 22, 2019

set arr=""
d pObject.%CopyToArray(.arr)

Error: <UNDEFINED>*arr

0 0

score 0 · Answer 4 · 2019-02-22T05:40:00-05:00

What will the following code output?

s resptext="{""access_token"":""4SDFDSFDSF-aSDASDASD"",""expires_in"":""3300"",""refresh_token"":"""",""scope"":""sms_send"",""token_type"":""Bearer""}"

s sc = ##class(%ZEN.Auxiliary.jsonProvider).%ParseJSON(resptext,,.pObject,1)
i $$$ISOK(sc) {
  w pObject,!!,
    pObject."access_token",!,
    pObject."expires_in",!
  k arr s arr="" d pObject.%CopyToArray(.arr) zw arr
}else{
  d $system.OBJ.DisplayError(sc)
}

My result (2018.1):

USER>d ^test
1@%ZEN.proxyObject
 
4SDFDSFDSF-aSDASDASD
3300
arr("access_token")="4SDFDSFDSF-aSDASDASD"
arr("expires_in")=3300
arr("refresh_token")=""
arr("scope")="sms_send"
arr("token_type")="Bearer"

score 0 · Answer 5 · 2019-02-22T05:40:29-05:00

What does this output in a terminal:

set respText="{""access_token"":""4SDFDSFDSF-aSDASDASD"",""expires_in"":""3300"",""refresh_token"":"""",""scope"":""sms_send"",""token_type"":""Bearer""}"  
set sc = ##class(%ZEN.Auxiliary.jsonProvider).%ParseJSON(respText,,.pObject,1)
zw pObject

I tried it on a later verison and got:

pObject=<OBJECT REFERENCE>[1@%ZEN.proxyObject]
+----------------- general information ---------------
|      oref value: 1
|      class name: %ZEN.proxyObject
| reference count: 2
+----------------- attribute values ------------------
|           %changed = 1
|%data("access_token") = "4SDFDSFDSF-aSDASDASD"
|%data("expires_in") = 3300
|%data("refresh_token") = ""
|     %data("scope") = "sms_send"
|%data("token_type") = "Bearer"
|             %index = ""
+-----------------------------------------------------