INT _docobj
_docobj := %XML%JSON_CreateDocumentCreateObject()
BOOL _ret
INT_ret := _el%JSON_ObjectSetValue(_obj, "Name", "John")
_elret := %XML%JSON_AddElementObjectSetValue(_docobj, "Surname", "elementSmith")
INTTEXT _txt
_txt := %XML%JSON_AddCDataNodeObjectToString(_elobj, "fjdkfjgwljl"@FALSE)
%JSON_FreeObjectHandle(_obj) |