-- Create DOMDocument handle for the created xml tag
    xmlDoc   := dbms_xmldom.newDOMDocument(xmlData);
    rootNode := dbms_xmldom.item(dbms_xmldom.getElementsByTagName(xmlDoc,
                                                                  '*'),
                                 0);
  
    -- Query for getting added tags.                               
    xmlContext := dbms_xmlgen.newContext('SELECT CMID AS SOURCECUSTOMERID, NAME AS NAME,
    KEYWORD AS KEYWORD, PGCTID AS SOURCECUSTTYPEID, DISABLED AS DELETED FROM CUSTMASTER ORDER BY CMID ASC');
    --Rename the rootnode
    dbms_xmlgen.setRowsetTag(xmlContext, ROOT_TAG);
    --Rename the childnodes
    dbms_xmlgen.setRowTag(xmlContext, SUB_NODE);
  
    v_xml := dbms_xmlgen.getXML(xmlContext);
    dbms_xmlgen.closeContext(xmlContext);
    --If no rows are returned by the query,insert a blank node
    IF v_xml IS NULL THEN
      v_xml := '' || '<' || ROOT_TAG || '/>' || '';
    END IF;
    xmlData := XMLType(v_xml);
    -- Create DOMDocument handle
    tempXmlDoc := dbms_xmldom.newDOMDocument(xmlData);
    --Get the first node of the document
    tempRootNode := dbms_xmldom.item(dbms_xmldom.getElementsByTagName(tempXmlDoc,
                                                                      '*'),
                                     0);
    --Append the recevied node to the original document                                   
    rootNode := dbms_xmldom.appendChild(rootNode, tempRootNode);
  DBMS_OUTPUT.put_line('<?xml version="1.0" encoding="UTF-8"?>');
    dbms_xmldom.writeToClob(xmlDoc, v_xml);
    PKG_EXPORT_TEST.SP_PUTLINE(v_xml);

 /**********************************************************************/
  PROCEDURE SP_PUTLINE(i_Text IN CLOB) IS
    cnumLineSize CONSTANT NUMBER := 255; -- Maximum size of DBMS_OUTPUT string
    lstrLeft  CLOB; --VARCHAR2(32767);
    lstrRight CLOB; --VARCHAR2(32767);
    lnumPos   NUMBER;
  BEGIN
    DBMS_OUTPUT.ENABLE(1000000);
    IF LENGTH(i_Text) <= cnumLineSize THEN
      -- Line short enough to go to PUT_LINE
      DBMS_OUTPUT.PUT_LINE(i_Text);
    ELSE
      -- Parse till we get character '>' and put it to a line
      lstrLeft := SUBSTR(i_Text, 1, INSTR(i_Text, '>'));
      lstrRight := SUBSTR(i_Text, INSTR(i_Text, '>') + 1);
      -- lstrLeft is small enough to send to put_line...
      DBMS_OUTPUT.PUT_LINE(lstrLeft);
      -- ...but lstrRight may not be. Make a recursive call to deal with it
      IF (LENGTH(lstrRight) <= cnumLineSize) THEN
        DBMS_OUTPUT.PUT_LINE(lstrRight);
      ELSE
        SP_PUTLINE(lstrRight);
      END IF;
    END IF;
  END;

   PROCEDURE my_pl (
      p_line_in   in   varchar2,
      p_magic     in   number default 80) IS
      i   pls_integer := length (p_line_in);
      j   pls_integer := 1;
   BEGIN
      WHILE j <= i
      LOOP
         dbms_output.put_line (substr (p_line_in, j, p_magic) );
         j  := j + p_magic;
      END LOOP;
   END my_pl;