//书本实验
//每隔一分钟将系统当前时间插入基表displaytime中
create table displaytime(
job_no number(7),
current_date date);
create or replace procedure displaycurrenttime as
v_sysdate varchar2(50);
n number(7):=0;
begin
v_sysdate:=To_Char(sysdate,'yyyy.mm.dd hh24:mi:ss');
select NVL(max(job_no),0) into n from displaytime;
n:=n+1;
insert into displaytime values(n,sysdate);
end displaycurrenttime;
/
VARIABLE job_no1 number;
begin
dbms_job.submit(:job_no1,'displaycurrenttime;',sysdate,'sysdate+1/1440');
end;
/
begin
dbms_job.run(:job_no1);
end;
/
--实验完成
--接下来将本作业停止,要不然太费系统资源了:)
begin
dbms_job.remove(:job_no1);
end;
/