CREATE OR REPLACE procedure export_ucs IS

 v_sqlselect VARCHAR2(4000);
 v_queryctx DBMS_XMLQuery.ctxType;
 v_clob_par CLOB;

 BEGIN

 v_sqlselect := 'select * from gtd10.xucs where rownum <= 100';
 v_queryctx := DBMS_XMLQuery.newContext(v_sqlselect);

 DBMS_XMLQuery.setEncodingTag(v_queryctx, 'ISO-8859-1');
 DBMS_XMLQuery.setRowSetTag(v_queryctx,UPPER('CURSOS'));
 DBMS_XMLQuery.setRowTag(v_queryctx, UPPER('UC'));

 v_clob_par := DBMS_XMLQuery.getXML(v_queryctx);
 DBMS_XMLQuery.closeContext(v_queryctx);

 DBMS_OUTPUT.PUT_LINE(v_clob_par);

 END;

 execute export_ucs;