Saving xmldom.DOMDocument to a file

Question

Hi all!
I have a problen saving an XML file generated from a SQL sentence in my Oracle 9i Database when the file is higer than 32K bytes.
To save file i use UTL_FILE library and i have found that there is the problem.
The code i use is the following:
CREATE OR REPLACE PROCEDURE SIGADMIN.PRUEBA_CAUC0004_EXT AUTHID CURRENT_USER IS
xml clob;
vxml varchar2(100);
xfile utl_file.file_type;
doc xmldom.DOMDocument;
BEGIN
--Inicializamos el CLOB
DBMS_LOB.CreateTemporary(xml,TRUE);
--Pasar el DOM document a CLOB
xmldom.writeToClob(doc,xml);
xfile := utl_file.fopen('TEMP_DIR','PRUEBA_CAUC0004.xml','w');
WHILE (pos < len) LOOP
vxml := dbms_lob.substr(xml,100,pos);
utl_file.put(xfile,vxml);
pos := pos+100;
END LOOP
--Liberamos los recursos
xmldom.freeDocument(doc);
utl_file.fclose(xfile);
..

Answer 1

What about
clear screen
connect bfile/bfile
set termout on
set feed on
set lines 40
set long 10000000
set serveroutput on
set echo on
clear screen
-- Using dbms_xslprocessor.clob2file
drop directory STORE;
CREATE directory store AS 'C:\TEMP';
declare
rc sys_refcursor;
BEGIN
   open rc FOR
     SELECT * FROM
     ( SELECT rownum FROM dual connect BY level < 25 );
dbms_xslprocessor.clob2file( xmltype( rc ).getclobval( ) , 'STORE','anton.xml');
END;
SELECT extract((XMLTYPE(bfilename('XMLSTORE','anton.xml'),NLS_CHARSET_ID('AL32UTF8'))),'*') AS "XML"
from   dual;
pause
clear screen
-- Using DBMS_XMLDOM.WRITETOFILE
declare
     rc sys_refcursor;
     doc DBMS_XMLDOM.DOMDocument;
begin
   open rc for
      select * from
        ( select rownum from dual connect by level < 25 );
      doc := DBMS_XMLDOM.NewDOMDocument(xmltype( rc ));
      DBMS_XMLDOM.WRITETOFILE(doc, 'STORE/marco.xml');
end;
SELECT extract((XMLTYPE(bfilename('XMLSTORE','marco.xml'),NLS_CHARSET_ID('AL32UTF8'))),'*') AS "XML"
from   dual;