Getting error in this code

Question

Hi,
please dont consider about the performence in this case.
i have a delete statement DELETE FROM GSM_ITEM_INFO WHERE EXPIRE_TIME<SYSDATE-1;
this delete statement may delete millions of records,i should not delete all the records at a time.
i have to run a loop so that each time it deletes 10000 records for each commit. if the count of records less than 10000 records then i have to come out of the loop without deleting it.  i have written code like this. getting errors.
CREATE OR REPLACE PROCEDURE TEST_ITEM_CLEAN (limit_in IN NUMBER DEFAULT 10000)
IS
    type ITEM_CUR IS REF CURSOR;
    L_ITEM_CUR ITEM_CUR;
    TYPE ITEM_TYPE IS TABLE OF NUMBER
        INDEX BY PLS_INTEGER;
    L_ITEM ITEM_TYPE;
BEGIN
for i in 1..10
loop
    OPEN L_ITEM_CUR FOR SELECT ITEM_ID FROM GSM_ITEM_INFO;
        FETCH L_ITEM_CUR
            BULK COLLECT INTO L_ITEM LIMIT limit_in;
        FORALL indx IN L_ITEM.FIRST .. L_ITEM.LAST
          DELETE FROM GSM_ITEM_INFO WHERE ITEM_ID=L_ITEM(indx).ITEM_ID;   
   CLOSE L_ITEM_CUR;  
end loop;  
END TEST_ITEM_CLEAN;
errors:
LINE/COL ERROR
24/11    PL/SQL: SQL Statement ignored
24/61    PL/SQL: ORA-22806: not an object or REF
24/61    PLS-00487: Invalid reference to variable 'NUMBER'

Answer 1

Your procedure might contain just  NOT TESTED !
begin
  loop
    delete from gsm_item_info
     where expire_time < sysdate - 1
       and rownum <= p_limit;  /* never used rownum in update like this */
     delete from gsm_item_info
     where some_key in (select some_key
                          from gsm_item_info
                         where expire_time < sysdate - 1
                            and rownum <= p_limit
    if sql%rowcount = p_limit then
      commit;
    else
      rollback;
      exit;
    end if;
  end loop;
end;
Regards
Etbin