sql_新建过程删除每天的无用数据

以下过程传入参数即可实现 对应两个日期之间 无用记录的删除 操作。

CREATE OR REPLACE Procedure autodel as
   v_beg date:=to_date('20050426','yyyymmdd');
   v_end date:=to_date('20050501','yyyymmdd');
   v_tmp date:=v_beg+1;

   begin
     while v_tmp<to_date('20050501','yyyymmdd')  loop        
           delete from book_info where begintime<v_tmp;
           commit; 
           v_tmp:=v_tmp+1;
           dbms_output.put_line(to_char(v_tmp));
      end loop;
end;