INT _obj
_obj := %JSON_CreateObject()
BOOL _ret
_ret := %JSON_ObjectSetValue(_obj, "Company", "IPESOFT")
_ret := %JSON_ObjectSetValue(_obj, "Value", 365)
_ret := %JSON_ObjectSetValue(_obj, "Real", 1.234)
_ret := %JSON_ObjectSetValue(_obj, "State", @TRUE)
_ret := %JSON_ObjectSetValue(_obj, "Variable", U.uservariable) |