INT _obj
_obj := %JSON_CreateObject()
BOOL _ret
_ret := %JSON_ObjectSetValue(_obj, "Name", "John")
_ret := %JSON_ObjectSetValue(_obj, "Surname", "Smith")
TEXT _txt
_txt := %JSON_ObjectToString(_obj, @FALSE)
;_txt = "{"Name":"John","Surname":"Smith"}" |