The procedure is not running no compilatin error please help

Question

Dear Sir,
I have this procedure, when I am trying to execute it, it shows me busy cursor nothing happens i was trying for 6 hours nothing happening.
I am not able to trace out what is happening
please help
regards
sanat
CREATE OR REPLACE procedure rate_Calc is
--declare
sdate date := to_date('01-04-2004','dd-mm-yyyy');
edate date := sysdate;
p_amt number;
d_amt number;
i_qty number;
r_qty number;
d_qty number;
d_rate number;
aa number;
begin
delete from avg_rate;
commit;
insert into avg_rate(select to_date('31-03-2004','dd-mm-yyyy'), item_mast.item_code, item_mast.curr_rate from item_mast);
for rec1 in (select item_code from item_mast
) loop
sdate := to_date('01-04-2004','dd-mm-yyyy');
while (sdate < edate ) loop
begin
select nvl(sum(qty_accepted),0) into r_qty from rece_mast a, rece_det b where a.tran_no = b.tran_no and
a.tran_date < sdate and item_code = rec1.item_code;
exception when no_data_found then r_qty := 0;
when others then r_qty := 0;
end;
begin
select nvl(sum(issue_qty),0) into i_qty
from issu_mast a, issu_det b where a.tran_no = b.tran_no and
a.tran_date < sdate and item_code = rec1.item_code;
exception when no_data_found then i_qty := 0;
when others then i_qty := 0;
end;
begin
select nvl(item_rate * (r_qty - i_qty),0) into p_amt from avg_rate
where item_code = rec1.item_code and avg_date = sdate -1 ;
exception when no_data_found then p_amt := 0;
when others then p_amt := 0;
end;
begin
select nvl(sum(qty_accepted * item_rate),0), nvl(SUM(qty_accepted),0) into d_amt, d_qty
from rece_mast a, rece_det b where a.tran_no = b.tran_no and
a.tran_date = sdate and item_code = rec1.item_code;
exception when no_data_found then d_amt := 0;d_qty:=0;
when others then d_amt := 0;d_qty:=0;
end;
begin
d_rate := (p_amt + d_amt) / (r_qty + d_qty - i_qty);
exception when value_error then
d_rate := 0;
when others then
d_rate:=0;
end;
insert into avg_rate (avg_date, item_code, item_rate) values (sdate, rec1.item_code,d_rate);
sdate := sdate +1;
end loop;
end loop;
commit;
end;
/

Answer 1

Two possibilities:
1. Some other process is using the avg_rate table and the delete statement is having to wait until that other process is finished.
2. There is so much to do that it will take several hours to finish. How many rows are in item_mast? Because for every row in item_mast you are inserting over 2000 rows into avg_rate. Also do rece_mast and issu_mast have an index on item_code? If not you're doing a full table scan on those tables for every row you insert into avg_rate. Do rece_det and issu_det have indexes on tran_no? If not then you're doing a full table scan on those for every row you insert.
So if there are 1 million rows in item_mast, you're inserting 2 billion rows into avg_rate. And if this is not the first time it's been run you're also deleting 2 billion rows. That could take a lot longer than 6 hours.