我需要生成一个 XML 并将其写入文件。我使用了 utl_file.put_line。它创建文件,但没有写入任何内容。此外,它没有显示任何错误。我已经检查过我是否有权在目录上写入。代码:
SET serveroutput ON;
DECLARE
ctx DBMS_XMLGEN.CTXHANDLE;
resposta CLOB;
xml_file utl_file.file_type;
BEGIN
xml_file:=utl_file.fopen ('DATA_PUMP_DIR', 'xml.txt', 'W');
ctx := dbms_xmlgen.newContext ('select * from tb_museu M where M.cnpj=111111 OR M.cnpj=222222');
dbms_xmlgen.setRowsetTag (ctx, 'TODOS_OS_MUSEUS');
dbms_xmlgen.setRowTag (ctx, 'MUSEU');
resposta :=dbms_xmlgen.getXML (ctx);
utl_file.put_line (xml_file,'teste');
--utl_file.put_line (xml_file,resposta);
dbms_xmlgen.closeContext(ctx);
END;
/