Oracle由SQL查询生成XML

1. CREATEORREPLACEPROCEDURETEST.put_query_xml(
2. q_stringINVARCHAR2,
3. RESULTOUTCLOB
4. )
5. IS
6. qryctxDBMS_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;