How to get Specific element from JSON file by Calling API from objectscript?
Hi
Following API:
http://api.aladhan.com/v1/gToH?date=24-09-2021
is returning following JSON response:
{"code":200,"status":"OK","data":{"hijri":{"date":"16-02-1443","format":"DD-MM-YYYY","day":"16","weekday":{"en":"Al Juma'a","ar":"\u0627\u0644\u062c\u0645\u0639\u0629"},"month":{"number":2,"en":"\u1e62afar","ar":"\u0635\u064e\u0641\u064e\u0631"},"year":"1443","designation":{"abbreviated":"AH","expanded":"Anno Hegirae"},"holidays":[]},"gregorian":{"date":"24-09-2021","format":"DD-MM-YYYY","day":"24","weekday":{"en":"Friday"},"month":{"number":9,"en":"September"},"year":"2021","designation":{"abbreviated":"AD","expanded":"Anno Domini"}}}}
How can I get "hijri":{"date":"16-02-1443" portion from response JSON by calling above API by passing parameter date=24-09-2021 from objectscript?
Thanks
Comments
Hi Muhammad,
Create following class :
Class Test.Json
{
ClassMethod Get(date = "24-09-2021", debug = 0) As %String
{
#Dim status as %Status
#Dim response as %Stream
#Dim jsonResponse as %DynamicObject Set objHttp = ##class(%Net.HttpRequest).%New()
Set objHttp.Server="api.aladhan.com"
Set objHttp.Https=0
Do objHttp.SetParam("date",date)
Set status = objHttp.Send("GET","v1/gToH")
If status'=1 Do $SYSTEM.OBJ.DisplayError(status) Quit ""
If objHttp.HttpResponse'="" Do
Set response = objHttp.HttpResponse.Data
Set jsonResponse = ..GetResponse(response)
If debug Write jsonResponse.data.hijri.%ToJSON(),!
Return jsonResponse.data.hijri.date
}
ClassMethod GetResponse(response As %Stream, del As %String = "") As %DynamicObject
{
#Dim jsonStr as %String = ""
If response'="" {
Do response.Rewind()
While 'response.AtEnd {
Set jsonStr = jsonStr _ response.ReadLine() _ del
}
}
Quit {}.%FromJSON(jsonStr)
}
}and call it like :
USER>set hijri=##class(Test.Json).Get()
USER>write hijri
16-02-1443
USER>set hijri=##class(Test.Json).Get(,1)
{"date":"16-02-1443","format":"DD-MM-YYYY","day":"16","weekday":{"en":"Al Juma'a","ar":"الجمعة"},"month":{"number":2,"en":"Ṣafar","ar":"صَفَر"},"year":"1443","designation":{"abbreviated":"AH","expanded":"Anno Hegirae"},"holidays":[]}
USER>Write ##class(Test.Json).Get("01-08-2021")
22-12-1442
USER>And if you just want a function to return hijri dates, you van try following build-in $zdate function :
Write $zdate($zdateh("2021-09-24",3),19),!
16 2 1443You can also try ,18 which gives 16 Safar 1443
Hi Muhammad,
Remove the 'Extends %Net.HttpRequest' : it is not needed to inherit from this class.
Since the method Get is already defined in that class, it gives a compiler error when you overwrite a class with a different signature (classmethod).
Thanks Danny Wijnschenk ·
assuming, the variable jsonStr contains the response from the API, then
write jsonStr ---> {"code":200,"status":"OK","data":...
set object={}.%FromJSON( jsonStr )
write object.data.hijri.dateThat's all.
The '%FromJSON' class is only available in IRIS ?.png)
%FromJSON is not a class, it's a method of %DynamicObject and is available in IRIS and for Cache version 2016.2 and later.
.png)