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作為存儲(chǔ)過程的輸出參數(shù)，來指定下次JOB的下次運(yùn)行時(shí)間。 第一次看到這里的時(shí)候，一方面是感嘆這種內(nèi)部的東西，一般人是無法得到的，只有Tom這種內(nèi)部人士才能得到；另一方面是佩服Tom的功力，說實(shí)話，即使是把代碼給我，我也想不出這么巧妙的方法。 這次重讀這部分內(nèi)容，有了一點(diǎn)新的想法，對(duì)于BROKEN變量，是否也可以做點(diǎn)什么？ 采用和上面類似的方法，可以控制JOB的行為，使JOB成功運(yùn)行一次后，就自動(dòng)停止不在執(zhí)行。由于普通的一次性JOB，在運(yùn)行后就從JOB視圖中消失了，假如希望留下運(yùn)行信息，則必須使用日志表，十分的麻煩。而采用下面的方法處理一次性JOB，可以方便將JOB的運(yùn)行信息保留下來： 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 / 過程已創(chuàng)建。 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新聞熱點(diǎn)
疑難解答
圖片精選
