Export large XML-file

Question

Hi!
I want to export XML-files, but when i select 50 rows of my object view i only get 43 in my utl_file.
Here is the code:
CREATE OR REPLACE PROCEDURE Export_XML_to_file_with_Schema IS
qryCtx DBMS_XMLGEN.ctxHandle;
result XMLTYPE;
result_1 Clob;
Abfrage VARCHAR2(4000);
lob_length integer;
read_amount integer;
read_offset integer;
buffer varchar2(100);
loc varchar2(100) := 'usr_dir';
f_hand utl_file.file_type;
BEGIN
-- Setting up offset and no. of chars to be read in
-- in one go from clob datatype.
read_offset := 1;
read_amount := 75;
--Opening file
f_hand := Utl_File.Fopen(location =>'d:\oracle\utl_file\',
filename =>'test.xml',
open_mode =>'w',
max_linesize => 32767);
Abfrage :='Select * from I_GESAMT_V where rownum < 50';
qryctx := dbms_xmlgen.newContext(Abfrage);
Returns a new context
PARAMETERS: queryString (IN)- the query string, the result of which needs to be converted to XML
RETURNS: Context handle.
Call this function first to obtain a handle that you can use in the getXML()
and other functions to get the XML back from the result.
dbms_xmlgen.setRowSetTag(qryCtx,NULL);
rowsetTag (IN) -
the name of the document element.
NULL indicates that you do not want
the ROW element to be present.
Call this to set the name of the document root element,
if you do not want the default "ROWSET" name in the output.
You can also set this to NULL to suppress the printing of this element.
However, this is an error if both the row and the rowset are null and there
is more than one column or row in the output.
dbms_xmlgen.setRowTag(qryCtx,'INSP_PDA');
rowTag (IN) -
the name of the ROW element.
NULL indicates that you do not want the ROW element to be present.
Call this function to set the name of the ROW element,
if you do not want the default "ROW" name to show up.
You can also set this to NULL to suppress the ROW element itself.
Its an error if both the row and the rowset are null and there
is more than one column or row in the output.
-- now get the result
result := DBMS_XMLGEN.getXMLType(qryCtx);
select xmlelement("INSOBJ",
xmlattributes('http://www.w3.org/2001/XMLSchema-instance' AS "xmlns:xsi",'http://sv6:8080/sys/schemas/SCOTT/sv6:8080/public/mydocs/inspection_pda_schema.xsd' AS "xsi:noNamespaceSchemaLocation"), result) into result from dual;
result_1 :=result.getClobval();
-- Getting the length of the data stored in Clob
lob_length := dbms_lob.getlength(result_1);
utl_file.put(f_hand,'<?xml version="1.0" encoding="windows-1252"?>');
Utl_File.New_Line (f_hand,1);
-- Reading data from clob variable and writng into file.
while (lob_length > 0) loop
dbms_lob.read(result_1,read_amount,read_offset,buffer);
utl_file.put(f_hand,buffer);
read_offset := read_offset+read_amount;
lob_length := lob_length-read_amount;
if lob_length < read_amount then
read_amount := lob_length;
end if;
end loop;
utl_file.fclose(f_hand);
END Export_XML_to_file_with_Schema ;
Is there something wrong with my code?
Thanks for help.
With best regards
Nicole

Answer 1

HI!
I've seen that the utl_file max_linesize is the problem, is there an alternative except 'Spool'!
Thanks for help.
With best regards
Nicole