在oracle中元素形成一个xml

declare
results CLOB;
p xmlparser.Parser;
document xmldom.DOMDocument;
rootelement xmldom.DOMElement;
stockRecord xmldom.DOMElement;
fieldsSet stockmarket%rowtype;
tempelement xmldom.DOMElement;
textnode xmldom.DOMNode;
tempnode xmldom.DOMNode;
--type ref_cur is ref cursor return ref_cur;
--user_cur ref_cur;
--sqlstr varchar2;定义用户输入的sql语句
--终极目标，使用动态游标实现(待解决问题 1、数组 2、获得游标的列数)
stock_code char(6);
stock_name varchar2(50);
stock_shortname varchar2(30);
cursor user_cur is
select * from stockmarket;
begin
document:=xmldom.newDOMDocument;--建立document文档对象
rootelement:=xmldom.createElement(document,'Stocktable');--建立该对象的根元素
open user_cur;
loop
fetch user_cur into fieldsSet;
exit when user_cur%notfound;
stock_code:=fieldsSet.stockcode;
stock_name:=fieldsSet.stockname;
stock_shortname:=fieldsSet.stockshortname;

stockRecord:=xmldom.createElement(document,'Stock');--Stock记录

tempelement:=xmldom.createElement(document,'StockCode');
textnode:=xmldom.makeNode(xmldom.createTextNode(document,fieldsSet.stockcode));
tempnode:=xmldom.appendChild(xmldom.makeNode(tempelement),textnode);
tempnode:=xmldom.appendChild(xmldom.makeNode(stockRecord),xmldom.makeNode(tempelement));

tempelement:=xmldom.createElement(document,'StockName');
textnode:=xmldom.makeNode(xmldom.createTextNode(document,fieldsSet.stockname));
tempnode:=xmldom.appendChild(xmldom.makeNode(tempelement),textnode);
tempnode:=xmldom.appendChild(xmldom.makeNode(stockRecord),xmldom.makeNode(tempelement));

tempelement:=xmldom.createElement(document,'StockShortName');
textnode:=xmldom.makeNode(xmldom.createTextNode(document,fieldsSet.stockshortname));
tempnode:=xmldom.appendChild(xmldom.makeNode(tempelement),textnode);
tempnode:=xmldom.appendChild(xmldom.makeNode(stockRecord),xmldom.makeNode(tempelement));

tempnode:=xmldom.appendChild(xmldom.makeNode(rootelement),xmldom.makeNode(stockRecord));
/**
textnode:=xmldom.makeNode(xmldom.createTextNode(document,fieldsSet.stockname));
xmldom.appendChild(tempelement,textnode);

textnode:=xmldom.makeNode(xmldom.createTextNode(document,fieldsSet.stockshortname));
xmldom.appendChild(tempelement,textnode);

xmldom.appendChild(stockRecord,tempelement);
xmldom.appendChild(rootelement,stockRecord);
*/

end loop;
--将根元素添加到Document对象
tempnode:=xmldom.appendChild(xmldom.makeNode(document),xmldom.makenode(rootelement));
xmldom.writeToFile(document,'c:/111.xml');

end;