存储过程动态创建job

create or replace procedure test_job 
(
  in_jobname in varchar2  
, out_jobno out number  
) as 
jobno number;
begin
  SYS.DBMS_JOB.SUBMIT
            ( job => jobno
               ,what => in_jobname
               ,next_date => to_date('02-07-2008 01:00:00','dd/mm/yyyy hh24:mi:ss')
               ,interval => 'trunc(sysdate+1)+(1/24)'
               ,no_parse => FALSE
            );
                sys.dbms_output.put_line('Job Number is: ' || to_char(jobno));
                out_jobno :=jobno;
            commit;
end test_job;