Running a procedure which has parameters using dbms_job.submit

Question

I have a procedure which accepts some parameter and i need to schedule this using dbms_job in another procedure. My intention is to execute test_proc without waiting for test_asynch_proc
CREATE or REPLACE PROCEDURE test_asynch_proc(p_1 in number) as
i number;
BEGIN
for i in 1.. 100000
loop
     insert into item_p values (dbms_random.random, p_1,sysdate);
end loop;
commit;
END;
I have another procedure which does an asynchronous call to this procedure by scheduling this procedure.
create or replace procedure test_proc is
jobno binary_integer;
--x number :=100;
begin
     insert into test_table values(1,sysdate);
     dbms_job.submit(job => jobNo,
     what=>'test_asynch_proc(''100'');',
     next_date=>sysdate );
commit;
dbms_output.put_line ('insert complete at '|| to_char(sysdate, 'DD-MON-YYYY HH24:MI:SS'));
end;
but here instead of
what=>'test_asynch_proc(''100'');'
i need to give a variable. How can i do that?
Thanks,
mv

Answer 1

There is another possibility where job parameters are stored in a parameter table with the job number that can be retrieved by the job code:
bas002>
bas002> select * from v$version;
BANNER
Oracle Database 10g Enterprise Edition Release 10.2.0.2.0 - Prod
PL/SQL Release 10.2.0.2.0 - Production
CORE    10.2.0.2.0      Production
TNS for 32-bit Windows: Version 10.2.0.2.0 - Production
NLSRTL Version 10.2.0.2.0 - Production
bas002>
bas002> drop table t;
Table dropped.
bas002> drop table p;
Table dropped.
bas002>
bas002> create table t(x int,d date);
Table created.
bas002> create table p(jn int, jp int);
Table created.
bas002>
bas002>
bas002> create or replace procedure test_asynch_proc as
  2  begin
  3  insert into t select jp, (select sysdate from dual)
  4   from p where jn = sys_context('USERENV','BG_JOB_ID');
  5  commit;
  6  end;
  7  /
Procedure created.
bas002> show errors
No errors.
bas002>
bas002> create or replace procedure test_proc (tp number) is
  2  jobno binary_integer;
  3  begin
  4  dbms_job.submit(
  5   job => jobno,
  6   what=>'test_asynch_proc;',
  7   next_date=>sysdate );
  8   insert into p values(jobno, tp);
  9  commit;
10  end;
11  /
Procedure created.
bas002> show errors
No errors.
bas002>
bas002> alter session set nls_date_format='DD-MON-YYYY HH24:MI:SS';
Session altered.
bas002> select sysdate from dual;
SYSDATE
28-FEB-2008 10:40:13
bas002>
bas002> exec test_proc(1);dbms_lock.sleep(5);
PL/SQL procedure successfully completed.
bas002> select * from t;
         X D
         1 28-FEB-2008 10:40:17
bas002> exec test_proc(2);dbms_lock.sleep(5);
PL/SQL procedure successfully completed.
bas002> select * from t;
         X D
         1 28-FEB-2008 10:40:17
         2 28-FEB-2008 10:40:22Message was edited by:
Pierre Forstmann
Message was edited by:
Pierre Forstmann