Spool Script for XML file

Question

Question : I do not want <ROW num="1"> in xml file I need just <row> </row>. Because I want to change it to <TRANSACTIONS> <TRANSACTION> using Replace.
Please can any one help me to remove num = "1" and num ="2" from xml file ?
--MY SPOOL SCRIPT START HERE
set serverout on
set feedback off
spool C:\emp.XML
Declare
queryCtx DBMS_XMLquery.ctxType;
result CLOB;
procedure printClobOut(result IN OUT NOCOPY CLOB) is
xmlstr varchar2(32767);
line varchar2(2000);
begin
dbms_output.enable(99999999);
xmlstr := dbms_lob.SUBSTR(result,32767);
loop
exit when xmlstr is null;
line := substr(xmlstr,1,instr(xmlstr,chr(10))-1);
dbms_output.put_line(' '||line);
xmlstr := substr(xmlstr,instr(xmlstr,chr(10))+1);
end loop;
end;
begin
-- set up the query context...!
queryCtx := DBMS_XMLQuery.newContext('select ename,job,salary from emp');
-- get the result..!
result := BMS_XMLQuery.getXML(queryCtx);
-- Now you can use the result to put it in tables/send as messages..
printClobOut(result);
DBMS_XMLQuery.closeContext(queryCtx); -- you must close the query handle..
end;
spool off
--MY SPOOL SCRIPT ENDS HERE
THE ABOVE WORKS AND CREATES XML FILE AS SHOWN BELOW WHICH IS GOOD
<?xml version = '1.0'?>
<ROWSET>
<ROW num="1">
<ENAME>JOHN</ENAME>
<JOB>MANAGER</JOB>
<SALARY>3000</SALARY>
</ROW>
<ROW num="2">
<ROW num="2">
<ENAME>KATTU</ENAME>
<JOB>SALESMAN</JOB>
<SALARY>1000</SALARY>
</ROW>
</ROWSET>

Answer 1

you requirement.. !!
11:44:18 zug7_real>SET SERVEROUTPUT ON
11:44:19 zug7_real>set feedback off
11:44:19 zug7_real>spool F:\emp.XML
SP2-0332: Cannot create spool file.
11:44:19 zug7_real>DECLARE
11:44:19   2  v_ctx DBMS_XMLGen.ctxHandle;
11:44:19   3  v_file Utl_File.File_Type;
11:44:19   4  v_xml CLOB;
11:44:19   5  v_more BOOLEAN := TRUE;
11:44:19   6  procedure printClobOut(result IN OUT NOCOPY CLOB) is
11:44:19   7  xmlstr varchar2(32767);
11:44:19   8  line varchar2(2000);
11:44:19   9  begin
11:44:19  10  dbms_output.enable(99999999);
11:44:19  11  xmlstr := dbms_lob.SUBSTR(result,32767);
11:44:19  12  loop
11:44:19  13  exit when xmlstr is null;
11:44:19  14  line := substr(xmlstr,1,instr(xmlstr,chr(10))-1);
11:44:19  15  dbms_output.put_line(' '||line);
11:44:19  16  xmlstr := substr(xmlstr,instr(xmlstr,chr(10))+1);
11:44:19  17  end loop;
11:44:19  18  end;
11:44:19  19  BEGIN
11:44:19  20  -- Create XML context.
11:44:19  21  v_ctx := DBMS_XMLGen.newContext('select n1,n2 from view_1 ');
11:44:19  22  -- Set parameters to alter default Rowset and Row tag names and de
fault case.
11:44:19  23  --DBMS_XMLGen.setRowsetTag(v_ctx, 'TEST');
11:44:19  24  --DBMS_XMLGen.setRowTag(v_ctx, '');
11:44:19  25  --DBMS_XMLGen.setTagCase(v_ctx, DBMS_XMLGen.LOWER_CASE);
11:44:19  26  -- Add an IE specfic XSL stylesheet reference so browser can trans
form the file.
11:44:19  27  --DBMS_XMLGen.setStylesheetHeader(v_ctx, 'C:\Development\XML\IESty
le.xsl', 'text/xsl');
11:44:19  28  -- Create the XML document.
11:44:19  29  v_xml := DBMS_XMLGen.GetXML(v_ctx);
11:44:19  30  DBMS_XMLGen.closeContext(v_ctx);
11:44:19  31  -- Output XML document to file.
11:44:19  32  printClobOut(v_xml);
11:44:19  33  END;
11:44:19  34  /
<?xml version="1.0"?>
<ROWSET>
<ROW>
<N1>10</N1>
<N2>40</N2>
</ROW>
<ROW>
<N1>10</N1>
<N2>50</N2>
</ROW>
<ROW>
<N1>20</N1>
<N2>40</N2>
</ROW>
<ROW>
<N1>20</N1>
<N2>50</N2>
</ROW>
</ROWSET>- Pavan Kumar N