ORACLE下把查询的结果以xml输出

输入：
/*****************************************************************************
过程名称：add_to_stockmarket
参数1：fileName   in   varchar2   接收用户输入的xml文件名
功能：将xml文件中的数据导入到Stockmarket数据表中
*****************************************************************************/
create   or   replace   procedure   add_to_stockmarket(fileName   IN   varchar2)   as
document   xmldom.DOMDocument;--声明文档对象模型
subelement   xmldom.DOMElement;--声明元素类型
nodelistStock   xmldom.DOMNodeList;
nodelistStockChild   xmldom.DOMNodeList;
stock_code   char(6);--stock字段
stock_name   varchar2(30);--stockname字段
stock_shortname   varchar(30);--stockshortname字段
stock_buydate   date;--stockbuydate字段
recordCountOuter   number;--存储xml文档中stock元素的个数
quantity   exception;
begin

document:=xmlparser.parse(fileName);--解析xml文档
subelement:=xmldom.getDocumentElement(document);--获得根元素
nodelistStock:=xmldom.getElementsByTagName(subelement, 'Stock ');
recordCountOuter:=xmldom.getLength(nodelistStock);
for   outerCycle   in   0..recordCountOuter-1   loop--循环记录信息
nodelistStockChild:=xmldom.getChildNodes(xmldom.item(nodelistStock,outerCycle));
if   xmldom.getLength(nodelistStockChild) <> 4   then
raise   quantity;
end   if;
stock_code:=xmldom.getNodeValue(xmldom.getFirstCh