Oracle中dbms_job包的使用

-- 建立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 /

過程已建立。

3、建立JOB

SQL> variable job1 number;

SQL>

SQL> begin

2 dbms_job

.submit(:job1,'test;',sysdate,'sysdate+1/1440');　　--每天1440分鐘，即一分鐘運行test過程一次

3 COMMIT;

4 end;

5 /

PL/SQL 過程已成功完成。

4、運行JOB

SQL> begin

2 dbms_job

.run(:job1);

3 end;

4 /

PL/SQL 過程已成功完成。

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

時間

-------------------

2001/01/07 23:51:21

2001/01/07 23:52:22

2001/01/07 23:53:24

5、修改下次執行時間（10分鐘後執行）

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()過程更新一個已提交的工作的狀態，典型地是用來把一個已破工作標記為未破工作。這個過程有三個參數：job 、broken與next_date。

PROCEDURE Broken (

job IN binary_integer,

Broken IN boolean,

next_date IN date :=SYSDATE

)

job參數是工作號，它在問題中唯一標識工作。

broken參數指示此工作是否將標記為破——TRUE說明此工作將標記為破，而FLASE說明此工作將標記為未破。

next_date參數指示在什麼時候此工作將再次運行。此參數預設值為當前日期和時間。

2、Change()過程用來改變指定工作的設定。

這個過程有四個參數：job、what 、next_date與interval。

PROCEDURE Change (

job IN binary_integer,

What IN varchar2,

next_date IN date,

interval IN varchar2)

此job參數是一個整數值，它唯一標識此工作。

What參數是由此工作啟動並執行一塊PL/SQL代碼塊。

next_date參數指示何時此工作將被執行。

interval參數指示一個工作重執行的頻度。

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);

job參數唯一地標識一個工作。這個參數的值是由為此工作調用Submit()過程返回的job參數的值。已正在啟動並執行工作不能由調用過程式刪除。

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)

job參數是由Submit()過程返回的binary_ineger。用來唯一標識一個工作。

what參數是將被執行的PL/SQL代碼塊。

next_date參數指識何時將運行這個工作。

interval參數何時這個工作將被重執行。
  dbms_job

.s
ubmit(:job1,'test;',sysdate,'sysdate+1/1440');　　

    sysdate+1/1440:每天1440分鐘，即一分鐘運行test過程一次

    TRUNC(SYSDATE+1)+10/24:每天上午10點、晚上10點執行一次

no_parse參數指示此工作在提交時或執行時是否應進行文法分析——TRUE

指示此PL/SQL代碼在它第一次執行時應進行文法分析，

而FALSE指示本PL/SQL代碼應立即進行文法分析。

9、User_Export()過程返回一個命令，此命令用來安排一個存在的工作以便此工作能重新提交。此程式有兩個參數：job與my_call。

PROCEDURE User_Export(

job IN binary_ineger,

my_call IN OUT varchar2)

job參數標識一個安排了的工作。

my_call參數包含在它的目前狀態重新提交此工作所需要的本文。

10、What()過程應許在工作執行時重新設定此正在啟動並執行命令。這個過程接收兩個參數：job與what。

PROCEDURE What (

job IN binary_ineger,

What IN OUT varchar2)

job參數標識一個存在的工作。

what參數指示將被執行的新的PL/SQL代碼。