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

标签：procedure

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完成了，上述中的表都是测试表，如有不足，还请赐教

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

标签：procedure

原文地址：http://blog.51cto.com/zjwbk/2115118