利用存储过程参数控制JOB的运行状态

Tom在Expert One on One Oracle中，介绍了如何利用JOB的特性，来控制JOB运行的下次执行时间。在以前的文章中，我也给出过修改NEXT_DATE的具体的例子：http://yangtingkun.itpub.net/post/468/56931

    Tom给出的运行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视图中。