-- 創(chuàng)建JOB
begin
dbms_job.isubmit(102, 'control_alarm_amount;', SYSDATE,'SYSDATE+(30/(24*60*60))');
END;
/
--執(zhí)行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;
/

?

附：

?

一個(gè)簡(jiǎn)單例子：
1、創(chuàng)建測(cè)試表
SQL> create table a(a date);

表已創(chuàng)建。

2、創(chuàng)建一個(gè)自定義過程
SQL> create or replace procedure test as
2 begin
3 insert into a values(sysdate);
4 end;
5 /

過程已創(chuàng)建。

3、創(chuàng)建JOB
SQL> variable job1 number;
SQL>
SQL> begin
2 dbms_job .submit(:job1,'test;',sysdate,'sysdate+1/1440');　　--每天1440分鐘，即一分鐘運(yùn)行test過程一次
3 COMMIT;
4 end;
5 /

PL/SQL 過程已成功完成。

4、運(yùn)行JOB
SQL> begin
2 dbms_job .run(:job1);
3 end;
4 /

PL/SQL 過程已成功完成。

SQL> select to_char(a,'yyyy/mm/dd hh24:mi:ss') 時(shí)間 from a;

時(shí)間
-------------------
2001/01/07 23:51:21
2001/01/07 23:52:22
2001/01/07 23:53:24

5、修改下次執(zhí)行時(shí)間（10分鐘后執(zhí)行）
SQL>begin
2 dbms_job .n ext_date (:job1,SYSDATE + 10/(24*60));
3 end;
4 /

6、刪除JOB
SQL> begin
2 dbms_job .remove(:job1);
3 end;
4 /

PL/SQL 過程已成功完成。

*************************************************

DBMS_Job 包含以下子過程：
? Broken()過程。
? change()過程。
? Interval()過程。
? Isubmit()過程。
? Next_Date()過程。
? Remove()過程。
? Run()過程。
? Submit()過程。
? User_Export()過程。
? What()過程。

1、Broken()過程更新一個(gè)已提交的工作的狀態(tài)，典型地是用來(lái)把一個(gè)已破工作標(biāo)記為未破工作。這個(gè)過程有三個(gè)參數(shù)：job 、broken與next_date。
PROCEDURE Broken (
job IN binary_integer,
Broken IN boolean,
next_date IN date :=SYSDATE
)

job參數(shù)是工作號(hào)，它在問題中唯一標(biāo)識(shí)工作。
broken參數(shù)指示此工作是否將標(biāo)記為破——TRUE說(shuō)明此工作將標(biāo)記為破，而FLASE說(shuō)明此工作將標(biāo)記為未破。
next_date參數(shù)指示在什么時(shí)候此工作將再次運(yùn)行。此參數(shù)缺省值為當(dāng)前日期和時(shí)間。

2、Change()過程用來(lái)改變指定工作的設(shè)置。
這個(gè)過程有四個(gè)參數(shù)：job、what 、next_date與interval。
PROCEDURE Change (
job IN binary_integer,
What IN varchar2,
next_date IN date,
interval IN varchar2)

此job參數(shù)是一個(gè)整數(shù)值，它唯一標(biāo)識(shí)此工作。
What參數(shù)是由此工作運(yùn)行的一塊PL/SQL代碼塊。
next_date參數(shù)指示何時(shí)此工作將被執(zhí)行。
interval參數(shù)指示一個(gè)工作重執(zhí)行的頻度。

3、Interval()過程用來(lái)顯式地設(shè)置重執(zhí)行一個(gè)工作之間的時(shí)間間隔數(shù)。
這個(gè)過程有兩個(gè)參數(shù)：job與interval。
PROCEDURE Interval (
job IN binary_integer,
Interval IN varchar2)

job參數(shù)標(biāo)識(shí)一個(gè)特定的工作。
interval參數(shù)指示一個(gè)工作重執(zhí)行的頻度。

4、ISubmit()過程用來(lái)用特定的工作號(hào)提交一個(gè)工作。
這個(gè)過程有五個(gè)參數(shù)：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)
這個(gè)過程與Submit()過程的唯一區(qū)別在于此job參數(shù)作為IN型參數(shù)傳遞且包括一個(gè)由開發(fā)者提供的工作號(hào)。如果提供的工作號(hào)已被使用，將產(chǎn)生一個(gè)錯(cuò)誤。

5、Next_Date()過程用來(lái)顯式地設(shè)定一個(gè)工作的執(zhí)行時(shí)間。這個(gè)過程接收兩個(gè)參數(shù)：job與next_date。
PROCEDURE Next_Date(
job IN binary_ineger,
next_date IN date)

job標(biāo)識(shí)一個(gè)已存在的工作。
next_date參數(shù)指示了此工作應(yīng)被執(zhí)行的日期與時(shí)間。

6、Remove()過程來(lái)刪除一個(gè)已計(jì)劃運(yùn)行的工作。這個(gè)過程接收一個(gè)參數(shù)：
PROCEDURE Remove(job IN binary_ineger);

job參數(shù)唯一地標(biāo)識(shí)一個(gè)工作。這個(gè)參數(shù)的值是由為此工作調(diào)用Submit()過程返回的job參數(shù)的值。已正在運(yùn)行的工作不能由調(diào)用過程序刪除。

7、Run()過程用來(lái)立即執(zhí)行一個(gè)指定的工作。這個(gè)過程只接收一個(gè)參數(shù)：
PROCEDURE Run(job IN binary_ineger)

job參數(shù)標(biāo)識(shí)將被立即執(zhí)行的工作。

8、使用Submit()過程，工作被正常地計(jì)劃好。
這個(gè)過程有五個(gè)參數(shù)：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)

job參數(shù)是由Submit()過程返回的binary_ineger。用來(lái)唯一標(biāo)識(shí)一個(gè)工作。
what參數(shù)是將被執(zhí)行的PL/SQL代碼塊。
next_date參數(shù)指識(shí)何時(shí)將運(yùn)行這個(gè)工作。
interval參數(shù)何時(shí)這個(gè)工作將被重執(zhí)行。
? dbms_job .s ubmit(:job1,'test;',sysdate,'sysdate+1/1440');　　
? ? sysdate+1/1440:每天1440分鐘，即一分鐘運(yùn)行test過程一次
? ? TRUNC(SYSDATE+1)+10/24:每天上午10點(diǎn)、晚上10點(diǎn)執(zhí)行一次
no_parse參數(shù)指示此工作在提交時(shí)或執(zhí)行時(shí)是否應(yīng)進(jìn)行語(yǔ)法分析——TRUE
指示此PL/SQL代碼在它第一次執(zhí)行時(shí)應(yīng)進(jìn)行語(yǔ)法分析，
而FALSE指示本PL/SQL代碼應(yīng)立即進(jìn)行語(yǔ)法分析。

9、User_Export()過程返回一個(gè)命令，此命令用來(lái)安排一個(gè)存在的工作以便此工作能重新提交。此程序有兩個(gè)參數(shù)：job與my_call。
PROCEDURE User_Export(
job IN binary_ineger,
my_call IN OUT varchar2)

job參數(shù)標(biāo)識(shí)一個(gè)安排了的工作。
my_call參數(shù)包含在它的當(dāng)前狀態(tài)重新提交此工作所需要的正文。

10、What()過程應(yīng)許在工作執(zhí)行時(shí)重新設(shè)置此正在運(yùn)行的命令。這個(gè)過程接收兩個(gè)參數(shù)：job與what。

PROCEDURE What (
job IN binary_ineger,
What IN OUT varchar2)

job參數(shù)標(biāo)識(shí)一個(gè)存在的工作。
what參數(shù)指示將被執(zhí)行的新的PL/SQL代碼。

總結(jié)

以上是生活随笔為你收集整理的Oracle中dbms_job包的使用的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。