oracle处理XMl串返回数据集过程演示.txt

--创建一个表保存CLOB数据，里面存XML串，
Create table
    create table API.CLOB_TEST
    (
      lb_clob CLOB,
      id      NUMBER
    );

--通过XML串生成游标返回功能，此过程有局限性，XML太长处理不了。处理的逻辑是解析XML构造SQL语句，然后执行这个语句，但此语句是一个变量保存的，变量的长度有限制。抱歉暂时没有好的解决办法。如果有高手可以优化再好不过。
  PROCEDURE PROC_XML_CURSOR(AS_XML     IN CLOB, --XML串
                            AS_ROOT_NAME IN VARCHAR2,--要结点标识名。区分大小写。
                            AR_CODE    OUT VARCHAR2, --
                            AR_MSG     OUT VARCHAR2, --
                            AR_RECORDS OUT REF_CUR_RECORDS) AS
  
    DOC           XMLDOM.DOMDOCUMENT;
    XMLPAR        XMLPARSER.PARSER := XMLPARSER.NEWPARSER;
    MATERIALNODES XMLDOM.DOMNODELIST; 
    CHILNODES     XMLDOM.DOMNODELIST;
    TEMPARRMAP1   XMLDOM.DOMNAMEDNODEMAP;
    TEMPNODE      XMLDOM.DOMNODE; 
    CHILNODES1     XMLDOM.DOMNODELIST;
    TEMPNODE1      XMLDOM.DOMNODE;
    MATERIALNODES1 XMLDOM.DOMNODELIST;
    -- 以下变量用于获取xml节点的值  
    V_ATTRIBUTE VARCHAR2(50);
    V_ATTRIBUTE1  VARCHAR2(50); 
    V_VALUE1     VARCHAR2(50);
    TMP         INTEGER;
    TMP1        INTEGER;