1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| CREATE OR REPLACE PROCEDURE Start_Job_XX
(
PC$Param1 IN VARCHAR2,
PC$Param2 IN VARCHAR2,
....
)
IS
PRAGMA AUTONOMOUS_TRANSACTION ;
v_params VARCHAR2(10000) ;
v_jobid NUMBER ;
v1 VARCHAR2(1) := CHR(39) ;
v2 VARCHAR2(2) := v1 || v1 ;
BEGIN
-------------------------------------------
-- lancement du job en mode asynchrone --
-------------------------------------------
v_params := 'begin Ma_procedure('''
|| REPLACE(PC$Param1, v1, v2) || ''''
|| ',''' || REPLACE(PC$Param2, v1, v2) || ''''
.....
|| '); end;' ;
DBMS_JOB.SUBMIT (v_jobid, v_params);
COMMIT ;
EXCEPTION
WHEN OTHERS THEN
....
END ;
/ |
Partager