[Home] [Help]
1: package body CZ_IMP_MGR as
2: /* $Header: czimngrb.pls 120.0 2005/05/25 06:45:39 appldev noship $ */
3:
4: TYPE tRunId IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
5: TYPE tName IS TABLE OF dba_tables.table_name%TYPE INDEX BY BINARY_INTEGER;
10: l_tab_name_tbl tName;
11: l_count NUMBER:=0;
12: BEGIN
13: BEGIN
14: SELECT TO_NUMBER(VALUE) INTO CZ_IMP_MGR.BATCH_SIZE
15: FROM cz_db_settings
16: WHERE UPPER(setting_id)='BATCHSIZE';
17: EXCEPTION
18: WHEN NO_DATA_FOUND THEN
57: COMMIT;
58: DBMS_APPLICATION_INFO.SET_MODULE('','');
59: EXCEPTION
60: WHEN CZ_ADMIN.IMP_ACTIVE_SESSION_EXISTS THEN
61: l_error := cz_utils.log_report(cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS'),1,'CZ_IMP_MGR.PURGE',11276);
62: RAISE;
63: WHEN OTHERS THEN
64: l_error:=cz_utils.log_report(SQLERRM,1,'CZ_IMP_MGR.PURGE',11276);
65: DBMS_APPLICATION_INFO.SET_MODULE('','');
60: WHEN CZ_ADMIN.IMP_ACTIVE_SESSION_EXISTS THEN
61: l_error := cz_utils.log_report(cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS'),1,'CZ_IMP_MGR.PURGE',11276);
62: RAISE;
63: WHEN OTHERS THEN
64: l_error:=cz_utils.log_report(SQLERRM,1,'CZ_IMP_MGR.PURGE',11276);
65: DBMS_APPLICATION_INFO.SET_MODULE('','');
66: RAISE;
67: END purge;
68: -------------------------------------------
84: EXCEPTION
85: WHEN NO_DATA_FOUND THEN
86: DBMS_APPLICATION_INFO.SET_MODULE('','');
87: WHEN CZ_ADMIN.IMP_ACTIVE_SESSION_EXISTS THEN
88: l_error := cz_utils.log_report(cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS'),1,'CZ_IMP_MGR.PURGE',11276);
89: RAISE;
90: WHEN OTHERS THEN
91: l_error:=cz_utils.log_report(SQLERRM,1,'CZ_IMP_MGR.PURGE_to_date',11276);
92: DBMS_APPLICATION_INFO.SET_MODULE('','');
87: WHEN CZ_ADMIN.IMP_ACTIVE_SESSION_EXISTS THEN
88: l_error := cz_utils.log_report(cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS'),1,'CZ_IMP_MGR.PURGE',11276);
89: RAISE;
90: WHEN OTHERS THEN
91: l_error:=cz_utils.log_report(SQLERRM,1,'CZ_IMP_MGR.PURGE_to_date',11276);
92: DBMS_APPLICATION_INFO.SET_MODULE('','');
93: RAISE;
94: END purge_to_date;
95: -------------------------------------------
111: EXCEPTION
112: WHEN NO_DATA_FOUND THEN
113: DBMS_APPLICATION_INFO.SET_MODULE('','');
114: WHEN CZ_ADMIN.IMP_ACTIVE_SESSION_EXISTS THEN
115: l_error := cz_utils.log_report(cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS'),1,'CZ_IMP_MGR.PURGE',11276);
116: RAISE;
117: WHEN OTHERS THEN
118: l_error:=cz_utils.log_report(SQLERRM,1,'CZ_IMP_MGR.PURGE_TO_RUNID',11276);
119: DBMS_APPLICATION_INFO.SET_MODULE('','');
114: WHEN CZ_ADMIN.IMP_ACTIVE_SESSION_EXISTS THEN
115: l_error := cz_utils.log_report(cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS'),1,'CZ_IMP_MGR.PURGE',11276);
116: RAISE;
117: WHEN OTHERS THEN
118: l_error:=cz_utils.log_report(SQLERRM,1,'CZ_IMP_MGR.PURGE_TO_RUNID',11276);
119: DBMS_APPLICATION_INFO.SET_MODULE('','');
120: RAISE;
121: END purge_to_runid;
122: -------------------------------------------
166: errbuf := cz_utils.get_text('CZ_PURGE_FATAL_ERR', 'SQLERRM',Sqlerrm);
167: DBMS_APPLICATION_INFO.SET_MODULE('','');
168: END purge_to_runid_cp;
169:
170: END CZ_IMP_MGR;