XML publisher report using dbms_xmlgen (ORA-06502)

Question

Dear All,
I have written the below code to generate xml output in Oracle Apps. The code is working fine for less records. But when CLOB size is more than 32k, then
it giving the ORA-06502 error as fnd_file.put_line(fnd_file.output,v_result) can only write 32k at a time.
Can anyone let me know how to handle this? Any help on this would be highly appreciated.
PROCEDURE MAIN ( errbuf OUT VARCHAR2
,retcode OUT NUMBER
) IS
TYPE g_query_ref IS REF CURSOR;
v_query_ref g_query_ref;
v_handle dbms_xmlgen.ctxhandle;
v_result clob;
BEGIN
OPEN v_query_ref FOR
SELECT invoice_num,
description,
customer_no,
customer_name
FROM XX_INVOICE_DETAILS;
v_handle := dbms_xmlgen.newContext(v_query_ref);
DBMS_XMLGEN.SETROWTAG (v_handle , 'INVOICE');
v_result := dbms_xmlgen.getXML(v_handle);
fnd_file.put_line(fnd_file.output,v_result);
EXCEPTION
when others then
errbuf := sqlerrm;
retcode := sqlcode;
fnd_file.put_line(fnd_file.log,’sqlerrm ‘||sqlerrm);
END MAIN;
Thanks in Advance.
Regards,
Astik

Answer 1

What you need to do is to chop your CLOB up into smaller strings, something like:
l_size := DBMS_LOB.getlength (l_clob);
IF (NVL (l_size, 0) = 0) THEN
raise_application_error (-20001, 'CLOB is NULL');
END IF;
l_offset := 1;
-- Loop
WHILE (l_offset <= l_size) LOOP
l_char := DBMS_LOB.SUBSTR (l_clob,1,l_offset);
IF (l_char = CHR (10)) THEN
FND_FILE.NEW_LINE(FND_FILE.output, 1);
ELSE
FND_FILE.PUT(FND_FILE.output, l_char);
END IF;
-- Increment Offset.
l_offset:= l_offset+1;
END LOOP;
FND_FILE.NEW_LINE(fnd_file.output, 1);