文档介绍：XML 代码入库示例代码(XML code storage sample code)
declare
the _ ctx dbms _ xmlstore, ctxtype;
rows number;
xml _ doc clob: os-c_whatlen + 1, l_pos + cwhatlen))；
结束循环；
1 return： = 1 return | | 1 segment；
loffset： = 1 offset + 32767-cwhatlen；
结束循环；
最后如果；
返回(l_return)； 结束;
开始 ——来源脚本替换为Oracle XML标准脚本
xml_doc： = dfn clobreplace （xml_doc,"〈〈数据集〉"，"〈行>”）；
xml_doc： = dfn clobreplace （xml_doc, “〈 /数据集〉”，“〈/ 行集〉"）；
xml_doc： = dfn clobreplace （xml_doc,"〈〈数据体〉"，"〈行>”）；
xml_doc： = dfn clobreplace （xml_doc, “〈 /数据体〉”，“〈/ 行〉”）;
——来源脚本字段替换为目标表字段XML DB
xml_doc： = dfn clobreplace （xml_doc,”〈〈名称〉”，“〈 gddwmc >"）；
xml_doc： = dfn clobreplace （xml_doc, “〈 /名称〉”，"〈/ gddwmc >"）；
xml_doc： = dfn_clobreplace （xml doc,"〈〈日期〉”,"〈RQ>”）； xml doc： = dfn_clobreplace（xml_doc, “〈/日期〉”,"〈/RQ>"）； xml_doc： = dfn_clobreplace（xml_doc,"〈〈最高〉"，"〈zgfh>"）； xml_doc： = dfn clobreplace （xml doc, “〈 /最高〉”,“〈/ zgfh >"）；
xml_doc： = dfn_clobreplace（xml_doc,”〈〈最低〉”,"〈zdfh>"）；
xml_doc： = dfn clobreplace （xml doc, “〈 /最低〉”,“〈/ zdfh >"）；
xml_doc： = dfn_clobreplace（xml_doc,”〈〈平均〉”,"〈pjfh>"）；
xml_doc： = dfn clobreplace （xml_doc, “〈 /平均〉”，“〈/ pjfh >"）；
xml_doc： = dfn_clobreplace （xml_doc,"〈〈峰谷差>"、"<>"）；
xml_doc： = dfn clobreplace （xml_doc, “〈 /峰谷差〉”，"〈/ FGC〉”）；
xml_doc： = dfn clobreplace （xml_doc,"负荷率〉"<,
' < FHL >'）;
XML _ doc: = DFN _ clobreplace （XML _ doc, < / 负荷率 >,< / FHL > '）;
Ins _ CTX: = DBMS _ xmlstore, newcontext （' t _ eng'） ; - - get saved context
DBMS _ xmlstore, clearupdatecolumnlist （INS _ CTX）; — clear the update settings - set the columns to be update the list of values
DBMS _
_ xmlstore, setupdatecolumn
(INS
一 CTX,
gddwmc，);
--名
称
DBMS _
_ xmlstore, setupdatecolumn
(INS
CTX,
'"；-
-日期
DBMS _ 高
_ xmlstore, setupdatecolumn
(INS
CTX,
zgfh ');
最
DBMS _ 低
_ xmlstore, setupdatecolumn
(INS
CTX,
zdfh ');
最
DBMS _ 均
_ xmlstore, setupdatecolumn
(INS
CTX,
pjfh ');
——平
DBMS _
差
_ xmlstore, setupdatecolumn
(INS
_ CTX,
FGC , );-
-峰谷
DBMS _
_ xmls