For a purging process, I'm trying to create a procedure that deletes and commits in a loop. There are over 7 million rows in the table.

For a purging process, I'm trying to create a procedure that deletes and commits in a loop. There are over 7 million rows in the table. I've used some helpful tips in Experts Exchange but I'm getting the ORA-1001 invalid cursor.
 
I'm running oracle 9.2.0.5.

I want to delete all the rows in the table dstracking.webactions_emarch that have a dateinserted <='13-Nov-2006'.
 
Here is my procedure:
 
PROCEDURE            DELETE_COMMIT_LOOP
IS
  comm_after number :=500;
  rnum       number :=0;
  c1         varchar2(15);
  CURSOR cur1 IS select trunc(b.dateinserted)  
                    from dstracking.webactions_emarch b
                    where trunc(b.dateinserted) <= '13-Nov-2006';
   
BEGIN
  OPEN cur1;
  LOOP
    FETCH cur1 INTO c1;
    EXIT WHEN cur1%notfound;
    rnum :=rnum +1;
    DELETE FROM dstracking.webactions_emarch b
           WHERE EXISTS
                 (SELECT * FROM dstracking.webactions_emarch b
                           where trunc(b.dateinserted)=c1);
           IF rnum = comm_after then
           COMMIT;
           rnum :=0;
           END IF;
  END LOOP;
  CLOSE cur1;
  COMMIT;
dbms_output.put_line('Rows '||to_char(rnum)||' deleted');
  exception
  when NO_DATA_FOUND
  then
  dbms_output.put_line('ERROR at'||to_char(rnum));
  when others
  then dbms_output.put_line('ERROR at'||to_char(rnum));
END;