记一则自动删除x天前数据并插入历史表的procedure

原因：由于某张表每天数据量过几十万，现在需要把这张表的数据只保留40天，40天之前的数据插入历史表，每天早上六点执行该过程。
首先定义一个执行计划： 测试使用，每五分钟执行一次

variable  job_number number; 
begin
  sys.dbms_job.submit(:job_number,   
                      what => 'DEL_T1;',
                      next_date => to_date('09-05-2018 17:20:00', 'dd-mm-yyyy hh24:mi:ss'),
                      interval => 'sysdate + 5/1440');
  commit;
end;
/

我要记录每次操作该表是的时间，所以我要在建一个记录时间的table和一个自增的sequence序列

create   sequence APPADMIN.seq_del_t1_log increment by 1 start with 1 nocache;

create  table APPADMIN.del_t1_log (id number,ins_date timestamp(2),del_date timestamp(2),finsh_date timestamp(2));

最后创建procedure

CREATE OR REPLACE PROCEDURE DEL_T1 IS
BEGIN
insert into APPADMIN.del_t1_log(id,ins_date) values(seq_del_t1_log.nextval,sysdate);--插入准备执行的时间
    INSERT INTO TEST.TEST2
    select * from TEST.test1 
        where localdate<=to_char(sysdate-30,'yyyymmdd');--插入数据到历史表
          COMMIT;
            UPDATE APPADMIN.del_t1_log SET del_date=sysdate where id=(select max(id) id from  APPADMIN.DEL_T1_LOG );--完成插入历史表更新时间
          COMMIT;
    delete TEST.test1 
        where localdate<=to_char(sysdate-30,'yyyymmdd');--删除已经备份的历史数据
          COMMIT;
            UPDATE APPADMIN.del_t1_log SET finsh_date=sysdate where id=(select max(id) id from  APPADMIN.DEL_T1_LOG );--完成删除之后更新时间
          COMMIT;
END DEL_T1;

ok完成了，上述中的表都是测试表，如有不足，还请赐教

转载于:https://blog.51cto.com/zjwbk/2115118