for j in 1.. 15000 loop

vnums(j) :=j;

vname(j) :=’vendor nmane ‘ || to_char(j);

end loop;

get_time(t1);

forall i in 1.. 15000

insert into vender values(vnums(i), vname(i));

get_time(t2);

for i in 1.. 15000 loop

insert into vender values(vnums(i), vname(i));

end loop;

get_time(t3);

dbms_output.put_line(‘Forall loop ’|| to_char(t2-t1)); dbms_output.put_line(‘For loop ’|| to_char(t3-t2)); end;/

declare

type Numtab is table of char(15) index by binary_integer;

type Nametab is table of char(25) index by binary_integer;

vnums Numtab;

vname Nametab;

cursor c1 is select * from vender;

begin

open c1;

fetch c1 bulk collect into vnums, vname;

dbms_output.put_line(vnums.count);

close c1;

end;

/

create or replace type add_ty as object(

h_no number(3),

h_street varchar2(20),