create or replace procedure user_xmlgen(id in number) is
 ctx dbms_xmlgen.ctxHandle;
 result_clob CLOB;
 output_var varchar2(4000);
 offset_var integer := 1;
 buf_size integer :=4000;
begin
     ctx:=dbms_xmlgen.newContext('select doc from rep_sys_templet where templet_id  ='||to_char(id ));
     result_clob := dbms_xmlgen.getXML(ctx);
     while offset_var < dbms_lob.getlength(result_clob) loop
           dbms_lob.read(result_clob,buf_size,offset_var,output_var);
           htp.prn(output_var);
           offset_var:=offset_var+4000;
     end loop;
  
end ;
//输出XML