INT _obj
_obj := %JSON_CreateObject()
INT _temp
_temp := %JSON_CreateObject()
%JSON_ObjectSetValue(_temp, "SubObject", "Value")
%JSON_ObjectSetArrayObjectSetObject(_obj, "Constants", _temp)
%JSON_DeleteObjectFreeObjectHandle(_obj)
%JSON_DeleteArrayFreeObjectHandle(_temp) |