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: -------------------------------------------
127: purge;
128: EXCEPTION
129: WHEN CZ_ADMIN.IMP_ACTIVE_SESSION_EXISTS THEN
130: retcode := G_CONCURRENT_ERROR;
131: errbuf := cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS');
132: WHEN OTHERS THEN
133: retcode := G_CONCURRENT_ERROR;
134: errbuf := cz_utils.get_text('CZ_PURGE_FATAL_ERR', 'SQLERRM',Sqlerrm);
135: DBMS_APPLICATION_INFO.SET_MODULE('','');
130: retcode := G_CONCURRENT_ERROR;
131: errbuf := cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS');
132: WHEN OTHERS THEN
133: retcode := G_CONCURRENT_ERROR;
134: errbuf := cz_utils.get_text('CZ_PURGE_FATAL_ERR', 'SQLERRM',Sqlerrm);
135: DBMS_APPLICATION_INFO.SET_MODULE('','');
136: END purge_cp;
137: -------------------------------------------
138: PROCEDURE purge_to_date_cp(errbuf IN OUT NOCOPY VARCHAR2,
143: purge_to_date(p_days);
144: EXCEPTION
145: WHEN CZ_ADMIN.IMP_ACTIVE_SESSION_EXISTS THEN
146: retcode := G_CONCURRENT_ERROR;
147: errbuf := cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS');
148: WHEN OTHERS THEN
149: retcode := G_CONCURRENT_ERROR;
150: errbuf := cz_utils.get_text('CZ_PURGE_FATAL_ERR', 'SQLERRM',Sqlerrm);
151: DBMS_APPLICATION_INFO.SET_MODULE('','');
146: retcode := G_CONCURRENT_ERROR;
147: errbuf := cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS');
148: WHEN OTHERS THEN
149: retcode := G_CONCURRENT_ERROR;
150: errbuf := cz_utils.get_text('CZ_PURGE_FATAL_ERR', 'SQLERRM',Sqlerrm);
151: DBMS_APPLICATION_INFO.SET_MODULE('','');
152: END purge_to_date_cp;
153: -------------------------------------------
154: PROCEDURE purge_to_runid_cp(errbuf IN OUT NOCOPY VARCHAR2,
159: purge_to_runid(p_run_id);
160: EXCEPTION
161: WHEN CZ_ADMIN.IMP_ACTIVE_SESSION_EXISTS THEN
162: retcode := G_CONCURRENT_ERROR;
163: errbuf := cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS');
164: WHEN OTHERS THEN
165: retcode := G_CONCURRENT_ERROR;
166: errbuf := cz_utils.get_text('CZ_PURGE_FATAL_ERR', 'SQLERRM',Sqlerrm);
167: DBMS_APPLICATION_INFO.SET_MODULE('','');
162: retcode := G_CONCURRENT_ERROR;
163: errbuf := cz_utils.get_text('CZ_IMP_ACTIVE_SESSION_EXISTS');
164: WHEN OTHERS THEN
165: retcode := G_CONCURRENT_ERROR;
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;