Stock quantity Aging problem

Question

I have the following query. Execution is taking almost 12-16 hours during month end. Please help me to fine-tune the query.
We have stock table which get updated with latest balance quantity. The quantity should be arrived against stock aging. Receipt table (GRN_DTL) consists all the items receipt till date from 01-jan-2000
Aging range is 0-30, 31-60, 61-90, 91-180 and > 180
The query is :
CREATE OR REPLACE procedure stock_value_aging is
prd_cd varchar2(15);
cl_bal number;
phy_stk number;
p_AGE          NUMBER(15);
p_YEAR_MONTH      VARCHAR2(7);
p_STOCK_QTY      NUMBER(15,2);
p_UNIT_RATE      NUMBER;
p_FINAL_RATE NUMBER(15,2);
p_RANGE VARCHAR2(6);
p_TOTAL_VALUE NUMBER(20,2);
p_DOC_NO VARCHAR2(15);
p_DOC_DATE DATE;
p_DIVISION VARCHAR2(15);
p_ITEM_NAME VARCHAR2(50);
p_cum_accp     number(20,2);
P_CAT_CODE VARCHAR2(5);
P_CAT_NAME VARCHAR2(20);
Cursor STK IS
Select prod_code,phy_stk_qty, ITEM_NAME, DIV_NAME, UNIT_PRICE, CAT_CODE, CAT_NAME from STOCK_DIV_VALUE_VIEW;
--where prod_code='S2402300';
Cursor c1 IS
SELECT A.GRd_NO,A.GRD_DATE, to_date(sysdate,'dd-mon-rr')-to_date(grd_date,'dd-mon-rr') days,
A.ACCP_QTY, C.RANGE
FROM GRN_DTL A,
RANGE_MASTER C
WHERE A.PROD_CODE=prd_cd
AND (to_date(sysdate,'dd-mon-rr')-to_date(grd_date,'dd-mon-rr') BETWEEN AGE1 AND AGE2)
AND GRD_DATE IS NOT NULL
ORDER BY GRd_dATE DESc;
Begin
     DELETE AGE_STOCK_ANALYSIS;
     COMMIT;
Open stk;
Loop
Fetch STK into prd_cd,phy_stk,P_ITEM_NAME, P_DIVISION, P_UNIT_RATE,P_CAT_CODE,P_CAT_NAME;
exit when stk%notfound;
Begin
Open C1;
          Loop
          FETCH C1 INTO P_DOC_NO, P_DOC_DATE, P_AGE, P_STOCK_QTY, P_RANGE;
          EXIT WHEN phy_stk <= 0;
          If phy_stk < p_stock_qty then
               p_stock_qty := phy_stk;
          End if;
          Insert Into AGE_STOCK_ANALYSIS
          values (prd_cd, p_age, nvl(p_stock_qty,0), nvl(p_UNIT_RATE,0),
               nvl(p_stock_qty,0)*nvl(p_unit_rate,0),P_RANGE, p_doc_no, p_doc_date,
                    p_division, p_item_name, P_CAT_CODE,P_CAT_NAME);
          phy_stk := phy_stk - p_stock_qty;
          END LOOP;     
Close C1;
          Commit;
End;
end loop;
Close stk;
End;

Answer 1

I do not see any relatio between the STK and C1 cursors. Are you running a cross product of the cursors?
Shouldn't C1 be a parameterised cursor in this case or?