INT %XML%JSON_AddCDataNode(
   INT in node,
   TEXT in CDATA
 CreateObject()

 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"}"