Appending XML Node to XMLTYPE Variable

Question

Hi All,
My Database Details,
BANNER
Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production
PL/SQL Release 9.2.0.1.0 - Production
CORE 9.2.0.1.0 Production
TNS for 32-bit Windows: Version 9.2.0.1.0 - Production
NLSRTL Version 9.2.0.1.0 - Production
SQL> var mycnt number
SQL> exec :mycnt := 2
SQL> declare
xml xmltype := xmltype('
<EMP>
<NAME>
</NAME>
<SALARY>
<DATE></DATE>
<AMOUNT></AMOUNT>
</SALARY>
</EMP>');
l_sal long := '<SALARY><DATE></DATE><AMOUNT></AMOUNT></SALARY>';
l_str long;
begin for i in 1 .. :mycnt
loop
l_str := l_str || l_sal;
end loop;
xml := xmltype(replace (xml.getstringval(), '</EMP>', l_str || '</EMP>'));
dbms_output.put_line (xml.extract('.').getstringval());
end;
<EMP>
<NAME/>
<SALARY>
<DATE/>
<AMOUNT/>
</SALARY>
<SALARY>
<DATE/>
<AMOUNT/>
</SALARY>
<SALARY>
<DATE/>
<AMOUNT/>
</SALARY>
</EMP>
This program is working fine. Consider the following scenario...
My XML is like this,
<ABC>
<AB> -- First element
<CCC></CCC>
</AB>
<AB> -- Second element
<CCC></CCC>
</AB>
</ABC>
Now i want to replicate the tag of <CCC></CCC>
to 'N' TIMES from XPATH = /A/AB[1]/CCC and /A/AB[2]/CCC
For example if N=3 then, the XML should be,
<ABC>
<AB>
<CCC></CCC>
<CCC></CCC>
<CCC></CCC>
</AB>
<AB>
<CCC></CCC>
<CCC></CCC>
<CCC></CCC>
</AB>
</ABC>
Please provide me some Sample PLSQL code for this,
Thanks in Advance,
Simbhu

Answer 1

not sure that this is waht you want - but maybe you find smth useful:
SQL> set serveroutput on;
SQL>
SQL> declare str xmltype:=xmltype('<ABC><AB><CCC></CCC></AB><AB><CCC></CCC></AB><AB><CCC></CCC></AB></ABC>');
  2  begin
  3  for i in 1..2
  4  loop
  5  select InsertChildXML(str, '/ABC/AB['||i||']', 'CCC', XMLForest('' as "CCC",'' as "CCC")) into str from dual;
  6  end loop;
  7  dbms_output.put_line(str.extract('.').getstringval());
  8  end;
  9  /
<ABC>
  <AB>
    <CCC/>
    <CCC/>
    <CCC/>
  </AB>
  <AB>
    <CCC/>
    <CCC/>
    <CCC/>
  </AB>
  <AB>
    <CCC/>
  </AB>
</ABC>
PL/SQL procedure successfully completed
SQL>