用Traunc函数;
Create Or Replace Procedure Auto_Arch_Job(v_timestr In Varchar2,v_jobno Out Varchar2,v_msg Out Varchar2) Is
/******************************************************************************
PURPOSE: 自动存档Job的更改与建立 REVISIONS:
Ver Date Author Description
--------- ---------- --------------- ------------------------------------
1.0 2003-10-17 Fred Zhang 1. Created this procedure.******************************************************************************/
jobno Integer;
jobid Integer;
Begin
Select job Into jobid From all_jobs Where what='AMETDATA_TO_ARCH;CIRCDATA_TO_ARCH;';
dbms_job.Change(jobid,'AMETDATA_TO_ARCH;CIRCDATA_TO_ARCH;',To_Date(To_Char(Sysdate,'yyyy-mm-dd')||' '||V_timestr,'yyyy-mm-dd hh24:mi:ss'),'trunc(sysdate,''mi'')+1');
Commit;
v_jobno:=jobid;
v_msg:='恭喜你!存档数据自动导入设定已经成功更改!';
Exception When No_Data_Found Then
dbms_job.submit(jobid,'AMETDATA_TO_ARCH;CIRCDATA_TO_ARCH;',To_Date(To_Char(Sysdate,'yyyy-mm-dd')||' '||V_timestr,'yyyy-mm-dd hh24:mi:ss'),'trunc(sysdate,''mi'')+1');
Commit;
v_jobno:=jobid;
v_msg:='恭喜你!存档数据自动导入已经成功设定!';
End Auto_Arch_Job;
/
Create Or Replace Procedure Auto_Arch_Job(v_timestr In Varchar2,v_jobno Out Varchar2,v_msg Out Varchar2) Is
/******************************************************************************
PURPOSE: 自动存档Job的更改与建立 REVISIONS:
Ver Date Author Description
--------- ---------- --------------- ------------------------------------
1.0 2003-10-17 Fred Zhang 1. Created this procedure.******************************************************************************/
jobno Integer;
jobid Integer;
Begin
Select job Into jobid From all_jobs Where what='AMETDATA_TO_ARCH;CIRCDATA_TO_ARCH;';
dbms_job.Change(jobid,'AMETDATA_TO_ARCH;CIRCDATA_TO_ARCH;',To_Date(To_Char(Sysdate,'yyyy-mm-dd')||' '||V_timestr,'yyyy-mm-dd hh24:mi:ss'),'trunc(sysdate,''mi'')+1');
Commit;
v_jobno:=jobid;
v_msg:='恭喜你!存档数据自动导入设定已经成功更改!';
Exception When No_Data_Found Then
dbms_job.submit(jobid,'AMETDATA_TO_ARCH;CIRCDATA_TO_ARCH;',To_Date(To_Char(Sysdate,'yyyy-mm-dd')||' '||V_timestr,'yyyy-mm-dd hh24:mi:ss'),'trunc(sysdate,''mi'')+1');
Commit;
v_jobno:=jobid;
v_msg:='恭喜你!存档数据自动导入已经成功设定!';
End Auto_Arch_Job;
/
QL> declare
2 jobno number;
3 begin
4 dbms_job.submit(jobno,'pro;',sysdate,'sysdate+1/(24*60)');
5 commit;
6 end;
7 /
internal= trunc(sysdate) = 25/24 就可以了。