oracle输出xml文件格式,在oracle中通过字段信息生成xml文件

一般地，在开发xmlp的时候，我们要先用report builder制作rdf模板，然后上传rdf到客户化应用下的reports文件夹下，通过并发请求，输出xml数据，然后保存成xml文件，或者直接将请求输出的out文件改后缀为xml，同样得到输出数据的xml文件，接着通过加载xml数据制作rtf模拟，定义数据和模板，再次处理并发请求，以求得到我们想要输出格式的报表。(其中的详细过程就不再啰嗦了，想必都已经很熟了)

但是如果我们的开发环境中没办法上传rdf模板的时候，我们就要用其他的办法输出得到xml文件了，这里是介绍了一种使用plsql通过字段信息生成xml文件的方法：

dbms_xmlgen这个程序包是关键，有兴趣的可以去了解下，它可以根据一个游标输出一个CLOB格式的XML文本，下面是参考程序：

PROCEDURE xml_print(errbuf  OUT VARCHAR2,

retcode OUT NUMBER) IS

ctx      dbms_xmlgen.ctxhandle;

c_result CLOB;

xmltext  VARCHAR2(5000);

v_source ref_cursor;

line     VARCHAR2(200);

TYPE     ref_cursor IS REF CURSOR;

BEGIN

--定义数据，数据集必须为游标变量

OPEN v_source FOR

SELECT 1,

2,

CURSOR (SELECT 3,

4

FROM dual

WHERE 1 = 1

UNION ALL

SELECT 5,

6

FROM dual

WHERE 1 = 1)

FROM dual

WHERE 1 = 1;

--定义XML CLOB文件

ctx := dbms_xmlgen.newcontext(v_source);

--设置XML文件标签

dbms_xmlgen.setrowsettag(ctx,

'HEADER');

dbms_xmlgen.setrowtag(ctx,

'LINE');

-- generate the CLOB as a result.

c_result := dbms_xmlgen.getxml(ctx);

/* --直接输出clob

dbms_output.put_line(c_result);*/

--以文本形式输出XML文件

xmltext := substr(c_result);

LOOP

EXIT WHEN xmltext IS NULL;

line := substr(xmltext,

1,

instr(xmltext,

chr(10)) - 1);

fnd_file.put(fnd_file.output,

line);

xmltext := substr(xmltext,

instr(xmltext,

chr(10)) + 1);

END LOOP;

dbms_xmlgen.closecontext(ctx);

CLOSE v_source;

END xml_print;

上面的输出格式等自己可以控制，更多的方法可以查看dbms_xmlgen程序包