-- 创建JOB
begin
dbms_job.isubmit(102, 'control_alarm_amount;', SYSDATE,'SYSDATE+(30/(24*60*60))');
END;
/
--执行JOB
begin
dbms_job.run(102);
end;
/
--删除JOB
begin
dbms_job.remove(:job2);
end;
/
create or replace procedure control_alarm_amount
as
amount INT;
dead_t DATE;
i INT;
begin
select count(*) into amount from alarm_backup;
i := 0;
IF amount > 20000 THEN
select min(occur_time) into dead_t from (select occur_time from table_name order by occur_time desc) where rownum<20000;
delete table_name where occur_time <= dead_t;
END IF;
end;
/
附:
一个简单例子:
1、创建测试表
SQL> create table a(a date);
表已创建。
2、创建一个自定义过程
SQL> create or replace procedure test as
2 begin
3 insert into a values(sysdate);
4 end;
5 /
1、Broken()过程更新一个已提交的工作的状态,典型地是用来把一个已破工作标记为未破工作。这个过程有三个参数:job 、broken与next_date。
PROCEDURE Broken (
job IN binary_integer,
Broken IN boolean,
next_date IN date :=SYSDATE
)
2、Change()过程用来改变指定工作的设置。
这个过程有四个参数:job、what 、next_date与interval。
PROCEDURE Change (
job IN binary_integer,
What IN varchar2,
next_date IN date,
interval IN varchar2)
3、Interval()过程用来显式地设置重执行一个工作之间的时间间隔数。
这个过程有两个参数:job与interval。
PROCEDURE Interval (
job IN binary_integer,
Interval IN varchar2)
job参数标识一个特定的工作。
interval参数指示一个工作重执行的频度。
4、ISubmit()过程用来用特定的工作号提交一个工作。
这个过程有五个参数:job、what、next_date、interval与no_parse。
PROCEDURE ISubmit (
job IN binary_ineger,
What IN varchar2,
next_date IN date,
interval IN varchar2,
no_parse IN booean:=FALSE)
这个过程与Submit()过程的唯一区别在于此job参数作为IN型参数传递且包括一个由开发者提供的工作号。如果提供的工作号已被使用,将产生一个错误。
5、Next_Date()过程用来显式地设定一个工作的执行时间。这个过程接收两个参数:job与next_date。
PROCEDURE Next_Date(
job IN binary_ineger,
next_date IN date)
job标识一个已存在的工作。
next_date参数指示了此工作应被执行的日期与时间。
6、Remove()过程来删除一个已计划运行的工作。这个过程接收一个参数:
PROCEDURE Remove(job IN binary_ineger);
7、Run()过程用来立即执行一个指定的工作。这个过程只接收一个参数:
PROCEDURE Run(job IN binary_ineger)
job参数标识将被立即执行的工作。
8、使用Submit()过程,工作被正常地计划好。
这个过程有五个参数:job、what、next_date、interval与no_parse。
PROCEDURE Submit (
job OUT binary_ineger,
What IN varchar2,
next_date IN date,
interval IN varchar2,
no_parse IN booean:=FALSE)