vParser := xmlparser.newParser;
    xmlparser.setValidationMode(vParser, FALSE);          
    xmlparser.parseBuffer(vParser, '<?xml version="1.0" encoding="windows-1251"?> <root/>');         
    vDocResult := xmlparser.getDocument(vParser);  
               
    vElementResult := xmldom.getDocumentElement(vDocResult);        
    vNodeResult := xmldom.makeNode(vElementResult);
    
    IF xmldom.isNull(vNodeResult) = FALSE THEN    
    vElement := xmldom.createElement(vDocResult, 'data');
    vNode := xmldom.makeNode(vElement);        
    vDataNode := xmldom.appendChild(vNodeResult, vNode);    
    END IF; 

    IF xmldom.isNull(VDataNode) = FALSE THEN  
    vElement := xmldom.createElement(vDocResult, 'tag_name'); -- это тэг
    vNode := xmldom.makeNode(vElement);    
    vNode := xmldom.appendChild(vDataNode, vNode);    
         
    vText := xmldom.createTextNode(vDocResult, 'tag_data'); -- это содержание тэга
    vNode2 := xmldom.makeNode(vText);
    vNode2 := xmldom.appendChild(vNode, vNode2); 

    xmldom.writeToBuffer(vDocResult, vSqlResult);
    xmlparser.freeParser(vParser);