存储过程动态创建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;