DECLARE 
  CURSOR c_wholecatno IS 
    SELECT * 
    FROM   summarytable 
    WHERE  catno= 'MHP-300' 
    AND    quarterdate =to_date('04/01/2004 00:00:00', 'MM/DD/YYYY HH24:MI:SS' ) 
    AND    country='Belgium' ;
CURSOR c1(v_catno IN VARCHAR2, v_quarterdate IN DATE, v_qtytoallocate IN NUMBER,v_country IN VARCHAR2)
IS 
  ( 
         SELECT * 
         FROM   ( 
                         SELECT   cdt.catalog_no, 
                                  cdt.quarterdate, 
                                  cdt. allocatedcountry, 
                                  cdt.allocated, 
                                  row_number () over (PARTITION BY cdt.catalog_no, cdt.quarterdate ORDER BY cdt.catalog_no, cdt.quarterdate) seq_no
                         FROM     detailtable cdt 
                         WHERE    cdt. allocatedcountry IS NULL ) 
WHERE  catalog_no=v_catno 
AND    quarterdate=v_quarterdate 
AND    seq_no<= v_qtytoallocate ) FOR UPDATE;
BEGIN 
  FOR wholecatno_rec IN c_wholecatno 
  LOOP 
    FOR rec IN c1(wholecatno_rec.catno, wholecatno_rec.quarterdate,wholecatno_rec.qtytoallocate,wholecatno_rec.country)
    LOOP 
      UPDATE detailtable 
      SET    allocated ='Y', 
             allocatedcountry=wholecatno_rec.country 
      WHERE  CURRENT OF c1; 
     
    END LOOP; 
  END LOOP; 
END; 

SQL> DECLARE
  2     CURSOR c_wholecatno
  3     IS
  4        SELECT *
  5          FROM summarytable
  6         WHERE     catno = 'MHP-300'
  7               AND quarterdate =
  8                      TO_DATE ('07/01/2004 00:00:00', 'MM/DD/YYYY HH24:MI:SS')
  9               AND country = 'Belgium';
 10
 11     CURSOR c1 (
 12        v_catno           IN VARCHAR2,
 13        v_quarterdate     IN DATE,
 14        v_qtytoallocate   IN NUMBER,
 15        v_country         IN VARCHAR2)
 16     IS
 17        (SELECT *
 18           FROM (SELECT cdt.catalog_no,
 19                        cdt.quarterdate,
 20                        cdt.allocatedcountry,
 21                        cdt.allocated,
 22                        ROW_NUMBER ()
 23                        OVER (PARTITION BY cdt.catalog_no, cdt.quarterdate
 24                              ORDER BY cdt.catalog_no, cdt.quarterdate)
 25                           seq_no
 26                   FROM detailtable cdt
 27                  WHERE cdt.allocatedcountry IS NULL)
 28          WHERE     catalog_no = v_catno
 29                AND quarterdate = v_quarterdate
 30                AND seq_no <= v_qtytoallocate);
 31          -- FOR UPDATE;
 32  BEGIN
 33     FOR wholecatno_rec IN c_wholecatno
 34     LOOP
 35        FOR rec IN c1 (wholecatno_rec.catno,
 36                       wholecatno_rec.quarterdate,
 37                       wholecatno_rec.qtytoallocate,
 38                       wholecatno_rec.country)
 39        LOOP
 40           UPDATE detailtable
 41              SET allocated = 'Y', allocatedcountry = wholecatno_rec.country
 42            --WHERE CURRENT OF c1;
 43            WHERE     catalog_no = wholecatno_rec.catno
 44                  AND quarterdate = wholecatno_rec.quarterdate;
 45        END LOOP;
 46     END LOOP;
 47  END;
 48  /

PL/SQL procedure successfully completed.

SQL>