ERROR WITH XMLDOM.WRITETOCLOB

Question

Hi,
I have written the following procedure...............
procedure Prc_UpdateNodes(clString in out clob, nodename varchar2, nodeValue varchar2) is
     l_doc_node xmldom.DOMNode;
     l_xml_out varchar2(2000);
     begin
               domDocument      := Fn_GetXmlDocument(clString);
               nodeList           := xmldom.getElementsByTagName(domDocument, nodename);
               intNoOfNode      := xmldom.getLength(nodeList);
               l_doc_node := xmldom.item(nodeList, 0);
               for loopCount_int in 0.. intNoOfNode - 1 loop
     node := XmlDom.item(nodeList, loopCount_int);
                    valueNode := XmlDom.getFirstChild(node);
                    XmlDom.setNodeValue(valueNode,nodeValue);
               end loop;
               XmlDom.writeToClob(domDocument,clString);
end;
This below XML Is passed as the first parameter
The output after this operation for an xml should be..
<ROWSET>
<ROW>
<SITE_NO Key="Yes">1</SITE_NO>
<PARAMETER_VALUE_NO Key="Yes">0</PARAMETER_VALUE_NO>
<PARENT_PARAMETER_SPEC_NO>0</PARENT_PARAMETER_SPEC_NO>
<PARAMETER_SPEC_NO>1</PARAMETER_SPEC_NO>
<REF_TABLE_KEY_NO>0</REF_TABLE_KEY_NO>
<REF_TABLE_KEY_TYPE>S</REF_TABLE_KEY_TYPE>
<SEQ_NO>1</SEQ_NO>
<SUB_SEQN_NO>0</SUB_SEQN_NO>
<DATA_TYPE_NO>1</DATA_TYPE_NO>
<INTEGER_VALUE>0</INTEGER_VALUE>
<STRING_VALUE>00039</STRING_VALUE>
<NUMERIC_VALUE>0</NUMERIC_VALUE>
<DATE_VALUE>01/01/1600</DATE_VALUE>
<CREATED_ON>0</CREATED_ON>
<MODIFIED_ON>0</MODIFIED_ON></ROW>
<ROW>
<SITE_NO Key="Yes">1</SITE_NO>
<PARAMETER_VALUE_NO Key="Yes">0</PARAMETER_VALUE_NO>
<PARENT_PARAMETER_SPEC_NO>0</PARENT_PARAMETER_SPEC_NO>
<PARAMETER_SPEC_NO>2</PARAMETER_SPEC_NO>
<REF_TABLE_KEY_NO>0</REF_TABLE_KEY_NO>
<REF_TABLE_KEY_TYPE>S</REF_TABLE_KEY_TYPE>
<SEQ_NO>2</SEQ_NO><SUB_SEQN_NO>0</SUB_SEQN_NO>
<DATA_TYPE_NO>2</DATA_TYPE_NO>
<INTEGER_VALUE>0</INTEGER_VALUE>
<STRING_VALUE/>
<NUMERIC_VALUE>0</NUMERIC_VALUE>
<DATE_VALUE/>
<CREATED_ON>0</CREATED_ON>
<MODIFIED_ON>0</MODIFIED_ON>
</ROW>
</ROWSET>
But the output I get is ……….
<ROWSET>
<ROW>
<SITE_NO Key="Yes">1</SITE_NO>
<PARAMETER_VALUE_NO Key="Yes">0</PARAMETER_VALUE_NO>
<PARENT_PARAMETER_SPEC_NO>0</PARENT_PARAMETER_SPEC_NO>
<PARAMETER_SPEC_NO>1</PARAMETER_SPEC_NO>
<REF_TABLE_KEY_NO>0</REF_TABLE_KEY_NO>
<REF_TABLE_KEY_TYPE>S</REF_TABLE_KEY_TYPE>
<SEQ_NO>1</SEQ_NO>
<SUB_SEQN_NO>0</SUB_SEQN_NO>
<DATA_TYPE_NO>1</DATA_TYPE_NO>
<INTEGER_VALUE>0</INTEGER_VALUE>
<STRING_VALUE>00039</STRING_VALUE>
<NUMERIC_VALUE>0</NUMERIC_VALUE>
<DATE_VALUE>01/01/1600</DATE_VALUE>
<CREATED_ON>0</CREATED_ON>
<MODIFIED_ON>0</MODIFIED_ON></ROW>
<ROW>
<SITE_NO Key="Yes">1</SITE_NO>
<PARAMETER_VALUE_NO Key="Yes">0</PARAMETER_VALUE_NO>
<PARENT_PARAMETER_SPEC_NO>0</PARENT_PARAMETER_SPEC_NO>
<PARAMETER_SPEC_NO>2</PARAMETER_SPEC_NO>
<REF_TABLE_KEY_NO>0</REF_TABLE_KEY_NO>
<REF_TABLE_KEY_TYPE>S</REF_TABLE_KEY_TYPE>
<SEQ_NO>2</SEQ_NO><SUB_SEQN_NO>0</SUB_SEQN_NO>
<DATA_TYPE_NO>2</DATA_TYPE_NO>
<INTEGER_VALUE>0</INTEGER_VALUE>
<STRING_VALUE/>
<NUMERIC_VALUE>0</NUMERIC_VALUE>
<DATE_VALUE/>
<CREATED_ON>0</CREATED_ON>
<MODIFIED_ON>0</MODIFIED_ON>
</ROW>
</ROWSET>
0</MODIFIED_ON>
</ROW>
</ROWSET>
The letter in bold above are the newly introduced junk letters
I think this problem is due to the buffer isssues………….
Do we have any solution for clearing the buffer….
Also this error doesnt occur all the time.........
Sometimes it comes, Sometimes it works fine
The error is introduced during execution of the statement
XmlDom.writeToClob(domDocument,clString);
Can anyone help me on this front?????
Thanks
Message was edited by:
user609257

Answer 1

Thx for your response
the program looks like this:
I executed it from a Form;
PROCEDURE PRUEBA IS
xml clob;
vxml varchar2(100);
len integer := 1;
pos integer := 1;
f utl_file.file_type;
doc xmldom.DOMDocument;
ppal_node xmldom.DOMNode;
main_node xmldom.DOMNode;
root_node xmldom.DOMNode;
user_node xmldom.DOMNode;
tercer_node xmldom.DOMNode;
item_node xmldom.DOMNode;
ppal_elmt xmldom.DOMElement;
root_elmt xmldom.DOMElement;
item_elmt xmldom.DOMElement;
item_text xmldom.DOMText;
--Elementos de la cabecera
header_pi xmldom.DOMProcessingInstruction;
header_node xmldom.DOMNode;
CURSOR MODULOS IS
SELECT T_COAPI AS COAPI,
T_DNAPI AS DNAPI     
FROM     T
WHERE     T_COAPI = 'PES';
BEGIN
--Creamos un nuevo DOM document
doc := xmldom.newDOMDocument();
ppal_node := xmldom.makeNode(doc);
FOR Modulo IN Modulos LOOP
-- El nodo es cada modulo
root_elmt := xmldom.createElement(doc, 'Modulo');
root_node := xmldom.appendChild(main_node, xmldom.makeNode(root_elmt));
--COAPI
item_elmt := xmldom.createElement(doc, lit_COAPI);
item_node := xmldom.appendChild(root_node, xmldom.makeNode(item_elmt));
item_text := xmldom.createTextNode(doc, Modulo.COAPI);
item_node := xmldom.appendChild(item_node, xmldom.makeNode(item_text));
--DNAPI
item_elmt := xmldom.createElement(doc, lit_DNAPI);
item_node := xmldom.appendChild(root_node, xmldom.makeNode(item_elmt));
item_text := xmldom.createTextNode(doc, Modulo.DNAPI);
item_node := xmldom.appendChild(item_node, xmldom.makeNode(item_text));
END LOOP
f := utl_file.fopen('TEMP_DIR','PRUEBA.xml','w');
--Obtenemos la longitud del xml lob
len := dbms_lob.getlength(xml);
DBMS_LOB.CreateTemporary(xml,TRUE);
xmldom.writeToClob(doc,xml); -- HERE I GET THE ERROR
dbms_xmldom.WriteToFile(f,xml);
WHILE (pos < len) LOOP
vxml := dbms_lob.substr(xml,100,pos);
utl_file.put(f,vxml);
pos := pos+100;
END LOOP;
utl_file.fclose(f);
END;