INT _docobj
_docobj := %XML%JSON_CreateDocumentCreateObject()
INTBOOL _el
ret _el := %XML%JSON_AddElementObjectSetValue(_docobj, "Name", "elementJohn")
INTTEXT _txt
_txt := %XML%JSON_AddCDataNodeObjectToString(_elobj, @TRUE) "fjdkfjgwljl") ;_txt = "{"Name":"John"}" |