122 lines
3.7 KiB
Plaintext
122 lines
3.7 KiB
Plaintext
CREATE OR REPLACE PACKAGE BODY EFT_NOM.cama_job_submission IS
|
|
--
|
|
-- ---------------------------------------------------------------------------------------------------------------------
|
|
--
|
|
-- Package: cama_job_submission
|
|
--
|
|
-- Application: LNG Importation
|
|
--
|
|
-- Creation Date: 23/11/2004
|
|
--
|
|
-- ---------------------------------------------------------------------------------------------------------------------
|
|
--
|
|
-- Header Information
|
|
--
|
|
g_header CONSTANT VARCHAR2(160) := '$Header: /Isle Of Grain/database/PLSQL/cama_job_submission.pck 8 16/08/05 16:05 Gilberta $';
|
|
g_revision CONSTANT VARCHAR2(160) := '$Revision: 8 $';
|
|
--
|
|
/*
|
|
* $History: cama_job_submission.pck $
|
|
*
|
|
* ***************** Version 8 *****************
|
|
* User: Gilberta Date: 16/08/05 Time: 16:05
|
|
* Updated in $/Isle Of Grain/database/PLSQL
|
|
* Modified to add space into second submission of dfn
|
|
*
|
|
* ***************** Version 7 *****************
|
|
* User: Gilberta Date: 28/07/05 Time: 16:45
|
|
* Updated in $/Isle Of Grain/database/PLSQL
|
|
* Modified to add 1 to the next date
|
|
*
|
|
* ***************** Version 4 *****************
|
|
* User: Gilberta Date: 30/06/05 Time: 15:33
|
|
* Updated in $/Isle Of Grain/database/PLSQL
|
|
* Modified to include scheduled faxes
|
|
*
|
|
* ***************** Version 3 *****************
|
|
* User: Gilberta Date: 4/03/05 Time: 14:21
|
|
* Updated in $/Isle Of Grain/database/PLSQL
|
|
* Modified to include voice message components
|
|
*
|
|
* ***************** Version 2 *****************
|
|
* User: Gilberta Date: 9/02/05 Time: 12:28
|
|
* Updated in $/Isle Of Grain/database/PLSQL
|
|
* Modified to include process routines after files have been loaded.
|
|
*
|
|
* ***************** Version 1 *****************
|
|
* User: Gilberta Date: 7/01/05 Time: 12:54
|
|
* Created in $/Isle Of Grain/database/PLSQL
|
|
* Initial Version
|
|
*
|
|
*/
|
|
--
|
|
-- S U B M I T J O B
|
|
--
|
|
PROCEDURE submit_job ( p_what IN all_jobs.what%TYPE
|
|
, p_next_date IN all_jobs.next_date%TYPE
|
|
, p_interval IN all_jobs.interval%TYPE
|
|
) IS
|
|
--
|
|
CURSOR c_allj ( p_what IN all_jobs.what%TYPE ) IS
|
|
SELECT allj.job
|
|
FROM all_jobs allj
|
|
WHERE allj.what = p_what;
|
|
--
|
|
v_job all_jobs.job%TYPE;
|
|
--
|
|
BEGIN
|
|
--
|
|
-- Check for jobs of this type and remove them
|
|
--
|
|
FOR c_allj_rec IN c_allj ( p_what ) LOOP
|
|
--
|
|
dbms_job.remove ( c_allj_rec.job );
|
|
--
|
|
-- Commit following removal
|
|
--
|
|
COMMIT;
|
|
--
|
|
END LOOP;
|
|
--
|
|
-- Submit the job
|
|
--
|
|
dbms_job.submit ( v_job
|
|
, p_what
|
|
, p_next_date
|
|
, p_interval
|
|
);
|
|
--
|
|
-- Commit following submission
|
|
--
|
|
COMMIT;
|
|
--
|
|
END submit_job;
|
|
--
|
|
-- S U B M I T
|
|
--
|
|
PROCEDURE submit IS
|
|
BEGIN
|
|
--
|
|
-- Call the submit job sub-procedure which will remove any existing jobs scheduled (not running) and resubmit them with
|
|
-- the parameters specified below.
|
|
--
|
|
-- Parameters are: what : PL/SQL procedure to run
|
|
-- next date : Next date when the job will be run
|
|
-- interval : The next time the job is to be run
|
|
--
|
|
-- File load and process interface
|
|
--
|
|
submit_job ( 'BEGIN
|
|
lisu_file_load.load_files;
|
|
lisu_process_files.process_data;
|
|
END;'
|
|
, trunc(sysdate+1/24,'HH')
|
|
, 'trunc(sysdate+1/24,''HH'')'
|
|
);
|
|
--
|
|
END submit;
|
|
--
|
|
END cama_job_submission;
|
|
/
|
|
|