我的代码如下:
procedure getreporthead(reportid in number) is
doc xmldom.DOMDocument;
main_node xmldom.DOMNode;
root_node xmldom.DOMNode;
item_node xmldom.DOMNode;
root_elmt xmldom.DOMElement;
item_elmt xmldom.DOMElement;
item_text xmldom.DOMText;
v_id number;
v_name varchar2(200);
cursor getDatacur(rpid number) is 
select id, value from stocket;
begin
doc := xmldom.newDOMDocument();
main_node := xmldom.makeNode(doc);
root_elmt := xmldom.createElement(doc,'head');
root_node := xmldom.appendChild(main_node,xmldom.makeNode(root_elmt));
open getDatacur(reportid);
loop
fetch getDatacur into v_id, v_name ;
exit when getDatacur%notfound;
item_elmt := xmldom.createElement(doc,'column');
xmldom.setAttribute(item_elmt,'id','c'||v_id);
xmldom.setAttribute(item_elmt,'name',v_name);
end loop;
close getDatacur;
xmldom.writeToFile(doc,'d:\a.xml');//这里是自动生成新文件吗?
xmldom.freeDocument(doc);
end getreporthead;