Oracle由SQL查询生成XML

1. CREATE OR REPLACE PROCEDURE TEST.put_query_xml (
2.    q_string   IN       VARCHAR2,
3.    RESULT     OUT      CLOB
4. )
5. IS
6.    qryctx   DBMS_XMLGEN.ctxhandle;
7. BEGIN
8.    qryctx := DBMS_XMLGEN.newcontext (q_string);
9.    DBMS_XMLGEN.setrowtag (qryctx, 'report');
10.    RESULT := DBMS_XMLGEN.getxml (qryctx);
11.    DBMS_XMLGEN.closecontext (qryctx);
12. END;
13. /
15. DECLARE
       q_string1   VARCHAR2 (2000);
       RESULT      CLOB;
    BEGIN
       q_string1 := 'select * from my_tables';
       put_query_xml (q_string1, RESULT);
16.    INSERT INTO temp_clob_tab
            VALUES (RESULT);
17.    COMMIT;
    END;
19. SELECT *
      FROM temp_clob_tab;