Using collections to insert

Question

Hi ,
To improve the performance of the insert statement i was adviced to use the collections.
I'm not getting any idea on how to use collection concept in my code.
Could you please give me a skelton approach to do that.
The following is the sample code (the logic is same in prod code,instead of for 1 -100000 we have cursor in prod) without using collections
create table pop_tab (     col1 number ,col2 number ,col3 number ,col4 number ) 
create or replace package test_collect
is
  procedure proc_lvl_ld ;
  procedure proc_pop_tab (v_var1 number ,v_var2 number ,v_var3 number ,v_var4 number) ;
end test_collect;
create or replace package body test_collect
is
   procedure proc_lvl_ld
    is
      v_cnt number := 1 ;
      v_var1 NUMBER ;
      v_var2 NUMBER ;
      v_var3 NUMBER ;
      v_var4 NUMBER;
     begin
      for i in 1 .. 100000 loop
        v_var1 := v_cnt + 1;
        v_var2 := v_cnt + 2;
        v_var3 := v_cnt + 3;
        v_var4 := v_cnt + 4;
        v_cnt  := v_cnt + 1;
      proc_pop_tab (v_var1 ,v_var2,v_var3,v_var4);
     end loop;
      commit;
      exception when others then
       DBMS_OUTPUT.PUT_LINE ( 'proc_lvl_load'||sqlcode||','||sqlerrm );
    end proc_lvl_ld;
     procedure proc_pop_tab (v_var1 number ,v_var2 number ,v_var3 number ,v_var4 number)
      is
       begin
         insert into pop_tab (col1,col2,col3,col4)
                 values (v_var1,v_var2,v_var3,v_var4) ;
       exception when others then
       DBMS_OUTPUT.PUT_LINE ( 'proc_pop_tab'||sqlcode||','||sqlerrm );             
       end proc_pop_tab;
end test_collect;Now i tried a bit using colliection to improve the insert performance and stuck how to use the collections
create or replace package body test_collect
is
   procedure proc_lvl_ld
    is
       TYPE numtab1 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
       data1    numtab1;
       TYPE numtab2 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
       data2    numtab2;
       TYPE numtab3 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
       data3    numtab3;
       TYPE numtab4 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
       data4    numtab4;
      v_cnt number := 1 ;
     begin
      for i in 1 .. 100000 loop
        data1(data1.count +1) := v_cnt + 1;
        data2(data2.count +1) := v_cnt + 1;
        data3(data3.count +1) := v_cnt + 1;
        data4(data4.count +1) := v_cnt + 1;
        v_cnt  := v_cnt + 1;
      --proc_pop_tab (v_var1 ,v_var2,v_var3,v_var4);
     end loop;
       forall j in 1 ..data1.count
         insert into pop_tab
             values (  --- How to use  the above collection variables here
      commit;
      exception when others then
       DBMS_OUTPUT.PUT_LINE ( 'proc_lvl_load'||sqlcode||','||sqlerrm );
    end proc_lvl_ld;
end;Could you please help me out in this and let me know if i'm not clear
Edited by: Smile on Sep 7, 2012 11:37 AM

Answer 1

Use:
       forall j in 1 ..data1.count
         insert into pop_tab
             values (data1(j),data2(j),data3(j),data4(j));       Now:
SQL> create or replace package body test_collect
  2   is
  3     procedure proc_lvl_ld
  4      is
  5     TYPE numtab1 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
  6     data1    numtab1;
  7     TYPE numtab2 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
  8     data2    numtab2;
  9     TYPE numtab3 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
10     data3    numtab3;
11     TYPE numtab4 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
12     data4    numtab4;
13    v_cnt number := 1 ;
14   begin
15    for i in 1 .. 100000 loop
16      data1(data1.count +1) := v_cnt + 1;
17      data2(data2.count +1) := v_cnt + 1;
18      data3(data3.count +1) := v_cnt + 1;
19      data4(data4.count +1) := v_cnt + 1;
20      v_cnt  := v_cnt + 1;
21        --proc_pop_tab (v_var1 ,v_var2,v_var3,v_var4);
22       end loop;
23     forall j in 1 ..data1.count
24       insert into pop_tab
25       values (data1(j),data2(j),data3(j),data4(j));  
26    commit;
27    exception when others then
28     DBMS_OUTPUT.PUT_LINE ( 'proc_lvl_load'||sqlcode||','||sqlerrm );
29   
30      end proc_lvl_ld;
31  end;
32  /
Package body created.
SQL> exec test_collect.proc_lvl_ld;
proc_lvl_load-6502,ORA-06502: PL/SQL: numeric or value error: number precision too large
PL/SQL procedure successfully completed.
SQL> Why? You declared associative arrays as NUMBER(4) while values you are trying to assign their elements are in range:
for i in 1 .. 100000 loopIf I change it to:
for i in 1 .. 9998 loopThen:
SQL> create or replace package body test_collect
  2   is
  3     procedure proc_lvl_ld
  4      is
  5     TYPE numtab1 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
  6     data1    numtab1;
  7     TYPE numtab2 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
  8     data2    numtab2;
  9     TYPE numtab3 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
10     data3    numtab3;
11     TYPE numtab4 IS TABLE OF NUMBER (4) INDEX BY BINARY_INTEGER;
12     data4    numtab4;
13    v_cnt number := 1 ;
14   begin
15    for i in 1 .. 9998 loop
16      data1(data1.count +1) := v_cnt + 1;
17      data2(data2.count +1) := v_cnt + 1;
18      data3(data3.count +1) := v_cnt + 1;
19      data4(data4.count +1) := v_cnt + 1;
20      v_cnt  := v_cnt + 1;
21        --proc_pop_tab (v_var1 ,v_var2,v_var3,v_var4);
22       end loop;
23     forall j in 1 ..data1.count
24       insert into pop_tab
25       values (data1(j),data2(j),data3(j),data4(j));  
26    commit;
27    exception when others then
28     DBMS_OUTPUT.PUT_LINE ( 'proc_lvl_load'||sqlcode||','||sqlerrm );
29   
30      end proc_lvl_ld;
31  end;
32  /
Package body created.
SQL> exec test_collect.proc_lvl_ld;
PL/SQL procedure successfully completed.
SQL> select count(*) from pop_tab
  2  /
  COUNT(*)
      9998
SQL> SY.