oracle分批删除

CREATE OR REPLACE 
procedure delBigTab --分批提交删除
(p_TableName in varchar2, --表名
 p_Condition in varchar2, --条件
 p_Count     in varchar2 --每批提交的条数
 ) as
  pragma autonomous_transaction;
  n_delete number := 0;
begin
  while 1 = 1 loop
    EXECUTE IMMEDIATE 'delete from ' || p_TableName || ' where ' ||
                      p_Condition || ' and rownum <= :rn'
      USING p_Count;
    if SQL%NOTFOUND then
      exit;
    else
      n_delete := n_delete + SQL%ROWCOUNT;
      DBMS_OUTPUT.PUT_LINE(n_delete);
    end if;
    commit;
  end loop;
  commit;
  DBMS_OUTPUT.PUT_LINE('Finished!');
  DBMS_OUTPUT.PUT_LINE('Totally ' || to_char(n_delete) ||
                       ' records deleted!');
end;