INT _obj
_obj := %JSON_CreateObject()
INT _temp
_temp := %JSON_CreateArrayCreateObject()
%JSON_ObjectSetValue(_temp, "SubObject", "Value")
%JSON_ObjectSetArrayObjectSetObject(_obj, "Constants", _temp)
%JSON_FreeObjectHandle(_obj)
%JSON_FreeArrayHandleFreeObjectHandle(_temp) |