如何解決JOB的Interval輸入參數過長

本文根據一段錯誤代碼從而來分析如何解決JOB的Interval輸入參數過長的問題。

給出的運行JOB的PL/SQL代碼為：

DECLARE
job BINARY_INTEGER := :job;
next_date DATE := :mydate;
broken BOOLEAN := FALSE;
BEGIN
WHAT
:mydate := next_date;
IF broken THEN :b := 1; ELSE :b :=0; END IF;
      END;

並說明了如何使用NEXT_DATE作為存儲過程的輸出參數，來指定下次JOB的下次運行時間。

第一次看到這裡的時候，一方面是感歎這種內部的東西，一般人是無法得到的，只有Tom這種內部人士才能得到；另一方面是佩服Tom的功力，說實話，即使是把代碼給我，我也想不出這麼巧妙的方法。

這次重讀這部分內容，有了一點新的想法，對於BROKEN變量，是否也可以做點什麼？

采用和上面類似的方法，可以控制JOB的行為，使JOB成功運行一次後，就自動停止不在執行。由於普通的一次性JOB，在運行後就從JOB視圖中消失了，如果希望留下運行信息，則必須使用日志表，十分的麻煩。而采用下面的方法處理一次性JOB，可以方便將JOB的運行信息保留下來：

SQL> CONN /@YANGTK AS SYSDBA

已連接。

SQL> GRANT EXECUTE ON DBMS_LOCK TO YANGTK;

授權成功。

SQL> CONN YANGTK/YANGTK@YANGTK

已連接。

SQL> CREATE OR REPLACE PROCEDURE P_TEST (P_BROKEN OUT BOOLEAN) AS
2 BEGIN
3 P_BROKEN := TRUE;
4 DBMS_LOCK.SLEEP(5);
5 END;
      6 /

過程已創建。

SQL> DECLARE
2 V_JOB NUMBER;
3 BEGIN
4 DBMS_JOB.SUBMIT(V_JOB, 'P_TEST(BROKEN);', SYSDATE, 'SYSDATE + 1/1440');
5 COMMIT;
6 END;
      7 /

PL/SQL 過程已成功完成。

SQL> COL WHAT FORMAT A30
SQL> SELECT JOB, WHAT, TOTAL_TIME, 
BROKEN, FAILURES FROM USER_JOBS;
JOB WHAT TOTAL_TIME B FAILURES
---------- ------------------------------ 
6 P_TEST(BROKEN); 3 N
SQL> SELECT JOB, WHAT, TOTAL_TIME, BROKEN,
 FAILURES FROM USER_JOBS;
JOB WHAT TOTAL_TIME B FAILURES
---------- ------------------------------ 
      6 P_TEST(BROKEN); 5 Y 0

采用這種方法，運行一次後，JOB不再運行，但是JOB信息並沒有丟失，仍然保留在USER_JOBS視圖中。