Loop cursor in plsql

Question

Hi,
I create a procedure which is something like below:
create or replace procedure INSERT_DATA is
cursor cursor1(vfield varchar2) is
select field1,field2,field3,field4
from tableb z, xmltable( .....) x
       where z.field1=vfield
begin
  for c in (select fieldname from tablea)
  loop
    for t in cursor1(c.fieldname)
    loop
     insert into tablec
      (field1,field2,field3,field4)
      values
      (t.field1,t.field2,t.field3,t.field4);
    end loop; 
    commit;
  end loop;
end INSERT_DATA;when I run this procedure, I found that the memory usage of Oracle process in the server will keep increasing,
I want to run this procedure against some huge table, if the memory usage keep increase, I am afraid that it will exhaust the memory.
Is there any way to improve this?
Thanks
Vincent
Edited by: pj**** on 15-Sep-2011 00:42

Answer 1

Hi, Odie
Thanks for remember me, the actual query is as below
select testname,StepName,Status,Comp,Data,TESTSTATUS,SingleTest
from cust_vw_test_log_clob z, xmltable(
       declare function local:getChildren($p as element()) as element()*
         for $i in $p
         return
         if ($i/Prop[5]/@Name="Measurement")
         then (
             for $t in $i/Prop[@Name="Measurement"]/Value
             return
             element r {
                     element StepName1 {$t/Prop/@Name}
                    ,element Status1 {$t/Prop/Prop[@Name="Status"]/Value/text()}
                    ,element Comp1 {$t/Prop/Prop[@Name="Comp"]/Value/text()}
                    ,element Data1 {$t/Prop/Prop[@Name="Data"]/Value/text()}
                    ,element Testname1 {$i/Prop[@Name="TS"]/Prop[@Name="StepName"]/Value/text()}
                    ,element TEST_STATUS {$i/Prop[@Name="Status"]/Value/text()}
         else
             for $t in $i
           return
           element r {
                 element SingleTest {$t/Prop[@Name="TS"]/Prop[@Name="StepName"]/Value/text()}
                ,element TEST_STATUS {$t/Prop[@Name="Status"]/Value/text()}
                ,element Data1 {$t/Prop[@Name="Numeric"]/Value/text()}
             for $a in $i/Prop[@Name="TS"]/Prop[@Name="SequenceCall"]/Prop[@Name="ResultList"]/Value
             return
             local:getChildren($a/Prop[@Type="TEResult"])
        local:getChildren(/Reports/Report/Prop[@Type="TEResult"])'
       passing xmltype(z.test_log_text)
       columns
       StepName varchar2(500) path 'StepName1/@Name',
       Status varchar2(500) path 'Status1',
       Comp varchar2(500) path 'Comp1',
       Data varchar2(500) path 'Data1',
       TestName varchar2(100) path 'Testname1',      
       TestStatus varchar2(100) path 'TEST_STATUS',
       SingleTest varchar2(100) path 'SingleTest'      
      ) x
       where z.ticket=vTicketvincent