declare jobno binary_integer ; rm_days number := 15; --保留多少天的数据，单位天数 rm_hour number := 23; --每天几点运行，单位24小时制 my_hour number; my_interval_day number := 100; --执行周期，单位天数 my_interval varchar2(20); my_sql varchar2(200); my_next_date varchar2(200); my_yymmdd varchar2(200); my_own_sql varchar2(2000);begin-- rm_days := 15;--保留多少天的数据，单位天数-- rm_hour := 23;--每天几点运行，单位24小时制-- my_interval_day := 100;--执行周期，单位天数 my_sql := '''delete from log_info where currenttime <sysdate-' || rm_days || ';'''; select to_number(to_char(sysdate, 'hh24')) into my_hour from dual; if rm_hour <= my_hour then rm_hour := rm_hour; select to_char(sysdate + 1, 'yyyy-mm-dd') into my_yymmdd from dual; my_next_date := 'to_date(''' || my_yymmdd || ' ' || rm_hour || ':00:00'' ,''yyyy-mm-dd hh24:mi:ss'')'; elsif rm_hour > my_hour then select to_char(sysdate, 'yyyy-mm-dd') into my_yymmdd from dual; my_next_date := 'to_date(''' || my_yymmdd || ' ' || rm_hour || ':00:00'' ,''yyyy-mm-dd hh24:mi:ss'')'; end if; my_interval := '''sysdate+' || to_char(my_interval_day) || ''''; my_own_sql := ' declare jobno binary_integer; begin dbms_job.submit(job => jobno,what => ' || my_sql || ', next_date => ' || my_next_date || ', interval =>' || my_interval || '); commit; end;'; execute immediate my_own_sql;end;
转载于:https://www.cnblogs.com/iyoume2008/p/6206840.html
相关资源：Vishay发布性能无可匹敌新款陶瓷安规电容器