How to use DBMS_JOB to run the OWB scripts?

Question

Can anyone pls explain how I can use the DBMS_JOB to run the scripts which are generated by OWB.
Suroop

Answer 1

CREATE OR REPLACE PACKAGE "LOAD_DATAMART"
AS
TYPE t_global IS RECORD
( plsql_map VARCHAR2(50) := 'transactions_map_exp', -- Default mapping plsql program
plsql_map_main VARCHAR2(50) := 'transactions_map_exp.main', -- Default mapping plsql main program
servers NUMBER(2) := 19, -- Default concurrent loading servers
max_reloads NUMBER(3) := 3 , -- Default maximum load retrys
mail_sender VARCHAR2(99) := '"Certegy Data Warehouse"', -- Default Mail Sender
mail_notice VARCHAR2(99) := '[email protected]', -- Default Recepient Notification
mail_error VARCHAR2(99) := '[email protected]' -- Default Recepient for Errors.
GLOBAL t_global ;
PROCEDURE start_monitor_load(p_date IN DATE);
PROCEDURE monitor_load( p_date IN DATE , p_dwh_load# IN NUMBER DEFAULT NULL, p_servers IN NUMBER DEFAULT GLOBAL.servers );
PROCEDURE start_load(p_dwh_load# IN NUMBER, p_load_seq IN NUMBER, p_rbs IN VARCHAR2);
PROCEDURE create_job_load(p_dwh_load# IN NUMBER, p_load_seq IN NUMBER, p_rbs VARCHAR2 DEFAULT 'batch01_rbs' );
FUNCTION dependency_on(p_type IN VARCHAR2, p_date IN DATE) RETURN BOOLEAN;
PROCEDURE send_mail (p_sender IN VARCHAR2, p_recipient IN VARCHAR2, p_subject IN VARCHAR2, p_message IN VARCHAR2);
PROCEDURE start_load_guard;
PROCEDURE load_guard(p_job IN INTEGER);
END load_datamart;
CREATE OR REPLACE PACKAGE BODY "LOAD_DATAMART"
AS
PROCEDURE start_monitor_load(p_date IN DATE) IS
v_plsql VARCHAR2(32000);
BEGIN
v_plsql := 'load_datamart.monitor_load(to_date('''||TO_CHAR(p_date,'DD-MON-YYYY HH24:MI:SS')||''',''DD-MON-YYYY HH24:MI:SS''));';
EXECUTE IMMEDIATE 'declare v_job integer; begin dbms_job.submit(v_job,:v_plsql); end;'
USING v_plsql;
END start_monitor_load;
PROCEDURE monitor_load( p_date IN DATE, p_dwh_load# IN NUMBER DEFAULT NULL , p_servers IN NUMBER DEFAULT GLOBAL.servers ) IS
TYPE t_server IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
v_server t_server;
v_dwh_load# NUMBER;
v_reload_limit NUMBER := 0;
v_plsql_error VARCHAR2(32000);
pending_jobs BOOLEAN;
p_batch VARCHAR2(20) := 'batch01_rbs';
FUNCTION job_server_running(p_dwh_load_seq NUMBER) RETURN BOOLEAN IS
CURSOR c1 IS SELECT * FROM DWH_LOAD_DETAIL
WHERE dwh_load# = v_dwh_load#
AND load_seq = p_dwh_load_seq;
r1 c1%ROWTYPE;
PROCEDURE try_resubmit_job(p_dwh_load_seq OUT NUMBER) IS
v_load_seq NUMBER;
BEGIN
SELECT COUNT(*) INTO v_load_seq
FROM DWH_LOAD_DETAIL
WHERE dwh_load# = v_dwh_Load#;
IF v_load_seq < v_reload_limit THEN
INSERT INTO DWH_LOAD_DETAIL(dwh_load#,load_seq,load_server,plsql_map,map_parameters)
VALUES(v_dwh_load#,v_load_seq+1,0,r1.plsql_map,r1.map_parameters||'| SEQ '||v_load_seq);
COMMIT;
               ELSE
               RAISE_APPLICATION_ERROR(-20000,'Maximum '||v_reload_limit||' retrys reached, load aborted.');
END IF;
END;
BEGIN
OPEN c1;
FETCH c1 INTO r1;
IF c1%NOTFOUND THEN
RETURN FALSE;
ELSIF c1%FOUND AND r1.job_end_time IS NULL THEN
RETURN TRUE;
ELSIF c1%FOUND AND r1.job_end_time IS NOT NULL THEN
IF r1.job_end_time = 'BROKEN' THEN
try_resubmit_job(r1.load_seq); -- Oracle Errors
END IF;
RETURN FALSE;
END IF;
CLOSE c1;
END job_server_running;
FUNCTION get_next_load_seq(p_dwh_load_server IN NUMBER) RETURN NUMBER IS
CURSOR c1 IS SELECT * FROM DWH_LOAD_DETAIL
WHERE dwh_load# = v_dwh_load#
AND load_server = 0
ORDER BY dwh_load#,load_seq
FOR UPDATE OF load_server;
r1 c1%ROWTYPE;
BEGIN
OPEN c1;
FETCH c1 INTO r1;
IF c1%FOUND THEN
UPDATE DWH_LOAD_DETAIL
SET load_server = p_dwh_load_server
WHERE CURRENT OF c1;
END IF;
CLOSE c1;
COMMIT;
RETURN r1.load_seq;
END get_next_load_seq;
BEGIN
v_dwh_load# := p_dwh_load#;
-- Defining the Max Retry to load
SELECT COUNT(*) + GLOBAL.max_reloads INTO v_reload_limit
FROM DWH_LOAD_DETAIL
WHERE dwh_load# = v_dwh_load#;
FOR i IN 1..99 LOOP
v_server(i) := NULL;
END LOOP;
LOOP
pending_jobs := FALSE;
FOR i IN 1..p_servers LOOP
IF NOT job_server_running(v_server(i)) THEN
v_server(i) := get_next_load_seq(i);
IF v_server(i) IS NOT NULL THEN
load_datamart.create_job_load(v_dwh_load#,v_server(i),p_batch);
IF p_batch = 'batch01_rbs' THEN
p_batch :='batch02_rbs';
ELSIF p_batch = 'batch02_rbs' THEN
p_batch :='batch03_rbs';
ELSIF p_batch = 'batch03_rbs' THEN
p_batch :='batch01_rbs';
END IF;
END IF;
END IF;
IF v_server(i) IS NOT NULL THEN
pending_jobs := TRUE;
END IF;
END LOOP;
EXIT WHEN NOT pending_jobs;
dbms_lock.sleep(05);
END LOOP;
COMMIT;
UPDATE DWH_LOAD_HEADER
SET plsql_error = 'Completed'
WHERE dwh_load# = v_dwh_load#;
COMMIT;
EXCEPTION WHEN OTHERS THEN
v_plsql_error := SUBSTR(SQLERRM,1,4000);
load_datamart.send_mail(load_datamart.GLOBAL.mail_sender,load_datamart.GLOBAL.mail_error,
'Load Datamart - Load '||TO_CHAR(p_date,'MM/DD/YYYY HH24:MI:SS')||' not completed',
v_plsql_error||CHR(10)||
':::::::::::::::::::::::::::::::::::::::::'||CHR(13)||
'- Parameter Date '||TO_CHAR(p_date,'MM/DD/YYYY')||CHR(13)||
':::::::::::::::::::::::::::::::::::::::::'||CHR(13)||
'- Transmission time '||TO_CHAR(p_date,'hh24:mi:ss')||CHR(13)||
'- Load Seq# '||TO_CHAR(v_dwh_load#)||CHR(13)||
':::::::::::::::::::::::::::::::::::::::::'||CHR(13));
v_plsql_error := SUBSTR(SQLERRM,1,4000);
UPDATE DWH_LOAD_HEADER
SET plsql_error = v_plsql_error
WHERE dwh_load# = v_dwh_load#;
COMMIT;
                    RAISE_APPLICATION_ERROR(-20000,v_plsql_error);
END monitor_load;
PROCEDURE start_load(p_dwh_load# IN NUMBER, p_load_seq IN NUMBER, p_rbs IN VARCHAR2) IS
v_plsql_map VARCHAR2(200);
v_sqlerrm VARCHAR2(4000);
BEGIN
UPDATE DWH_LOAD_DETAIL
SET job_start_date = TRUNC(SYSDATE) ,
job_start_time = TO_CHAR(SYSDATE,'HH24:MI:SS')
WHERE dwh_load# = p_dwh_load#
AND load_seq = p_load_seq
RETURN plsql_map INTO v_plsql_map;
COMMIT;
EXECUTE IMMEDIATE 'set transaction use rollback segment '||p_rbs;
v_plsql_map := 'begin '||v_plsql_map||' end;';
EXECUTE IMMEDIATE v_plsql_map;
EXECUTE IMMEDIATE 'begin
UPDATE DWH_LOAD_DETAIL
SET job_end_date = SYSDATE,
job_end_time = TO_CHAR(SYSDATE,''HH24:MI:SS''),
rta_iid = '||global.plsql_map||'.get_runtime_audit_id,
rta_select = '||global.plsql_map||'.get_selected,
rta_update = '||global.plsql_map||'.get_updated,
rta_insert = '||global.plsql_map||'.get_inserted,
rta_errors = '||global.plsql_map||'.get_errors,
rta_delete = '||global.plsql_map||'.get_deleted
WHERE dwh_load# = :p_dwh_load#
AND load_seq = :p_load_seq;
UPDATE DWH_LOAD_HEADER
SET rows_inserted = NVL(rows_inserted,0) + NVL('||global.plsql_map||'.get_inserted,0)
WHERE dwh_load# = :p_dwh_load#;
END;' using p_dwh_Load#,p_load_seq;
COMMIT;
EXCEPTION WHEN OTHERS THEN
v_sqlerrm := SUBSTR(SQLERRM,1,3999);
EXECUTE IMMEDIATE ' begin
UPDATE DWH_LOAD_DETAIL
SET job_end_date = SYSDATE,
job_end_time = ''BROKEN'',
rta_iid = '||global.plsql_map||'.get_runtime_audit_id,
rta_select = '||global.plsql_map||'.get_selected,
rta_update = '||global.plsql_map||'.get_updated,
rta_insert = '||global.plsql_map||'.get_inserted,
rta_errors = '||global.plsql_map||'.get_errors,
rta_delete = '||global.plsql_map||'.get_deleted,
plsql_error = :v_sqlerrm
WHERE dwh_load# = :p_dwh_load#
AND load_seq = :p_load_seq;
UPDATE DWH_LOAD_HEADER
SET rows_inserted = NVL(rows_inserted,0) + NVL('||global.plsql_map||'.get_inserted,0)
WHERE dwh_load# = :p_dwh_load#;
END; ' using v_sqlerrm, p_dwh_load#,p_load_seq;
COMMIT;
END start_load;
PROCEDURE create_job_load(p_dwh_load# IN NUMBER, p_load_seq IN NUMBER, p_rbs VARCHAR2 DEFAULT 'batch01_rbs' ) IS
p_job INTEGER;
v_date DATE;
BEGIN
-- Submitting Job Load
DBMS_JOB.SUBMIT(p_job,'load_datamart.start_load('||p_dwh_load#||','||p_load_seq||','||''''||p_rbs||''');');
COMMIT;
END create_job_load;
FUNCTION dependency_on(p_type IN VARCHAR2, p_date IN DATE) RETURN BOOLEAN IS
CURSOR c1 IS SELECT * FROM DWH_DATA_LOADS
WHERE data_type = p_type
AND file_date >= TRUNC(p_date);
r1 c1%ROWTYPE;
BEGIN
OPEN c1;
FETCH c1 INTO r1;
IF c1%FOUND AND r1.status = 'Done' THEN
RETURN FALSE;
END IF;
CLOSE c1;
RETURN TRUE;
END;
PROCEDURE send_mail (p_sender IN VARCHAR2,
p_recipient IN VARCHAR2,
p_subject IN VARCHAR2,
p_message IN VARCHAR2) IS
* This procedure is usefull for sending e-mails for single or multiples recipients up to 50 *
* the limitation is Lotes Notes e-mail service. *
* Lewis Cunnigham Package is good also for massive distribuition to multiples e-mails, *
v_mailhost VARCHAR2(30) := '172.27.2.157'; -- Titan and Eagle available SMTP service, through the GATEWAY
v_mailhost    VARCHAR2(30) := 'STPMTA1ML';      old one
v_mailhost    VARCHAR2(30) := 'stpnh1ml';       Main SMTP, all other are replicated, not available.
v_mailhost    VARCHAR2(30) := 'STPMS6ML';       Replicated server, not available.
v_mail_conn utl_smtp.connection;
v_crlf VARCHAR2(2) DEFAULT CHR(13)||CHR(10);
v_date VARCHAR2(255) DEFAULT TO_CHAR( SYSDATE, 'MM/DD/YYYY hh24:mi AM' ); -- Lotus Notes default format.
--pragma autonomous_transaction;
PROCEDURE writeData( p_text IN VARCHAR2 ) AS
BEGIN
IF ( p_text IS NOT NULL ) THEN
utl_smtp.write_data( v_mail_conn, p_text || v_crlf );
END IF;
END;
BEGIN
v_mail_conn := utl_smtp.open_connection(v_mailhost, 25); -- Default port
utl_smtp.helo(v_mail_conn, v_mailhost);
utl_smtp.mail(v_mail_conn, p_sender);
utl_smtp.rcpt(v_mail_conn, p_recipient);
utl_smtp.open_data(v_mail_conn);
writeData( 'To: '|| p_recipient ); -- Redundant, but necessary to complete format
writeData( 'From: ' || p_sender); -- Redundant, but necessary to complete format
writeData( 'Date: ' || v_date ); -- Database completion time
writeData( 'Subject: ' || NVL( p_subject , '(no subject) ' ) ); -- Default Subject
     --writeData( 'Content-Type: text/html');
utl_smtp.write_data(v_mail_conn, '' || v_crlf );
utl_smtp.write_data(v_mail_conn, p_message ); -- Message body
utl_smtp.close_data(v_mail_conn );
utl_smtp.quit(v_mail_conn);
--commit;
EXCEPTION WHEN OTHERS THEN null;                                Since we are just sending e-mails,
-- We don't care about mail errors like when server down, only when needed.
END;
PROCEDURE start_load_guard IS
v_job INTEGER;
BEGIN
DBMS_JOB.SUBMIT(v_job,'load_datamart.load_guard(100);',SYSDATE+100);
     DBMS_JOB.CHANGE(v_job,'load_datamart.load_guard('||v_job||');',SYSDATE,'sysdate+((1/60)*1/24)');
     COMMIT;
END start_load_guard;
PROCEDURE load_guard(p_job IN INTEGER) IS
v_job INTEGER;
     CURSOR c1 IS SELECT * FROM DWH_DATA_LOADS
     WHERE file_date BETWEEN TRUNC(SYSDATE) AND TRUNC(SYSDATE)+(86399/86400);
did_PAYC_load BOOLEAN := NULL;
did_ARMS_load BOOLEAN := NULL;
did_CLMS_load BOOLEAN := NULL;
did_STAT_load BOOLEAN := NULL;
did_TRAN_load BOOLEAN := NULL;
did_VCOM_load BOOLEAN := NULL;
did_BCRD_load BOOLEAN := NULL;
did_PNET_load BOOLEAN := NULL;
BEGIN
FOR i IN c1 LOOP
     NULL;
     --if i.status in ('Ready','Done') then
     --if i.data_type = 'PAYC' then
     END LOOP;
     IF NOT ( SYSDATE >= TO_DATE(TO_CHAR(SYSDATE,'DD-MON-YYYY')||' 13:35:00','DD-MON-YYYY HH24:MI:SS') )THEN
send_mail('"Load Datamart"','[email protected]','I am the guard','This is my body messaje at '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS')||'.');
ELSE
send_mail('"Load Datamart"','[email protected]','I am the guard, this is the last message.','This is my body messaje at '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS')||'.');
DBMS_JOB.SUBMIT(v_job,'begin dbms_job.next_date('||p_job||',to_date('''||TO_CHAR(SYSDATE+1,'DD-MON-YYYY')||' 03'||''',''DD-MON-YYYY HH24'')); commit; exception when others then null; end;',TRUNC(SYSDATE));
     END IF;
COMMIT;
EXCEPTION WHEN OTHERS THEN
load_datamart.send_mail('"Load Datamart"','[email protected]','I am the guard, I break at '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'),SQLERRM);
END load_guard;
END load_datamart;