create or replace PRocedure TT isbegin  update infoopen     set checktype = 2   where floor(to_date(to_char(limittime, 'yyyy-MM-dd'), 'yyyy-MM-dd') -sysdate)<=5 and status<> 2 and checktype<>1; --顯示即將超時                 update infoopen     set isovertime = 1   where finishtime > limittime     and status = 2; --超時處理  update infoopen     set isovertime = 2   where finishtime < limittime     and status = 2; --沒有超時處理  dbms_output.put_line('處理成功！');end TT;執行JOBVARIABLE JOBNO NUMBER;BEGINDBMS_JOB.SUBMIT(:JOBNO,'TT;',SYSDATE,'SYSDATE+1');COMMIT;END;/BEGINDBMS_JOB.RUN(:JOBNO);END;/移除JOBexec dbms_job.remove(:JOB1);exec dbms_job.remove(190);COMMIT;/查看JOBselect * from dba_jobs;