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;