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 |