191:
192: l_seq_ddl_str varchar2(100);
193: BEGIN
194:
195: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
196: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
197: 'Begin...');
198: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
199: 'p_caller = ' || p_caller);
192: l_seq_ddl_str varchar2(100);
193: BEGIN
194:
195: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
196: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
197: 'Begin...');
198: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
199: 'p_caller = ' || p_caller);
200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
194:
195: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
196: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
197: 'Begin...');
198: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
199: 'p_caller = ' || p_caller);
200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
201: 'p_end_date = ' || p_end_date);
202: end if;
196: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
197: 'Begin...');
198: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
199: 'p_caller = ' || p_caller);
200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
201: 'p_end_date = ' || p_end_date);
202: end if;
203:
204: savepoint csfw_purge;
208: else
209: l_end_date := trunc(fnd_date.canonical_to_date(p_end_date));
210: end if;
211:
212: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
214: 'l_end_date = ' || l_end_date);
215: end if;
216:
209: l_end_date := trunc(fnd_date.canonical_to_date(p_end_date));
210: end if;
211:
212: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
214: 'l_end_date = ' || l_end_date);
215: end if;
216:
217: -- block for CSFW_MSESSION_COOKIE
215: end if;
216:
217: -- block for CSFW_MSESSION_COOKIE
218: begin
219: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
220: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
221: 'Start deleting CSFW_MSESSION_COOKIE ...');
222: end if;
223:
216:
217: -- block for CSFW_MSESSION_COOKIE
218: begin
219: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
220: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
221: 'Start deleting CSFW_MSESSION_COOKIE ...');
222: end if;
223:
224: DELETE FROM CSFW_MSESSION_COOKIE
227: FROM CSFW_MSESSION
228: WHERE last_access_date <= l_end_date
229: ) RETURNING count(*) INTO l_deleted_records;
230:
231: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
232: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
233: 'Deleted records for CSFW_MSESSION_COOKIE = ' || l_deleted_records);
234: end if;
235:
228: WHERE last_access_date <= l_end_date
229: ) RETURNING count(*) INTO l_deleted_records;
230:
231: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
232: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
233: 'Deleted records for CSFW_MSESSION_COOKIE = ' || l_deleted_records);
234: end if;
235:
236: exception
235:
236: exception
237: when others then
238: rollback to csfw_purge;
239: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
240: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
241: 'Exception occured while deleting CSFW_MSESSION_COOKIE sqlerrm = ' || sqlerrm);
242: end if;
243: fnd_message.set_name('CSF', 'CSF_CP_DONE_ERROR');
236: exception
237: when others then
238: rollback to csfw_purge;
239: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
240: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
241: 'Exception occured while deleting CSFW_MSESSION_COOKIE sqlerrm = ' || sqlerrm);
242: end if;
243: fnd_message.set_name('CSF', 'CSF_CP_DONE_ERROR');
244: errbuf := fnd_message.get;
248: -- end block for CSFW_MSESSION_COOKIE
249:
250: -- block for CSFW_MSESSION_URL
251: begin
252: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
254: 'Start deleting CSFW_MSESSION_URL ...');
255: end if;
256:
249:
250: -- block for CSFW_MSESSION_URL
251: begin
252: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
254: 'Start deleting CSFW_MSESSION_URL ...');
255: end if;
256:
257: DELETE FROM CSFW_MSESSION_URL
260: FROM CSFW_MSESSION
261: WHERE last_access_date <= l_end_date
262: ) RETURNING count(*) INTO l_deleted_records;
263:
264: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
265: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
266: 'Deleted records for CSFW_MSESSION_URL = ' || l_deleted_records);
267: end if;
268: exception
261: WHERE last_access_date <= l_end_date
262: ) RETURNING count(*) INTO l_deleted_records;
263:
264: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
265: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
266: 'Deleted records for CSFW_MSESSION_URL = ' || l_deleted_records);
267: end if;
268: exception
269: when others then
267: end if;
268: exception
269: when others then
270: rollback to csfw_purge;
271: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
272: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
273: 'Exception occured while deleting CSFW_MSESSION_URL sqlerrm = ' || sqlerrm);
274: end if;
275: fnd_message.set_name('CSF', 'CSF_CP_DONE_ERROR');
268: exception
269: when others then
270: rollback to csfw_purge;
271: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
272: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
273: 'Exception occured while deleting CSFW_MSESSION_URL sqlerrm = ' || sqlerrm);
274: end if;
275: fnd_message.set_name('CSF', 'CSF_CP_DONE_ERROR');
276: errbuf := fnd_message.get;
280: -- end block for CSFW_MSESSION_URL
281:
282: -- block for CSFW_MSESSION
283: begin
284: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
285: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
286: 'Start deleting CSFW_MSESSION ...');
287: end if;
288:
281:
282: -- block for CSFW_MSESSION
283: begin
284: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
285: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
286: 'Start deleting CSFW_MSESSION ...');
287: end if;
288:
289: DELETE FROM CSFW_MSESSION
289: DELETE FROM CSFW_MSESSION
290: WHERE last_access_date <= l_end_date
291: RETURNING count(*) INTO l_deleted_records;
292:
293: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
295: 'Deleted records for CSFW_MSESSION = ' || l_deleted_records);
296: end if;
297: exception
290: WHERE last_access_date <= l_end_date
291: RETURNING count(*) INTO l_deleted_records;
292:
293: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
295: 'Deleted records for CSFW_MSESSION = ' || l_deleted_records);
296: end if;
297: exception
298: when others then
296: end if;
297: exception
298: when others then
299: rollback to csfw_purge;
300: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
301: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
302: 'Exception occured while deleting CSFW_MSESSION sqlerrm = ' || sqlerrm);
303: end if;
304: fnd_message.set_name('CSF', 'CSF_CP_DONE_ERROR');
297: exception
298: when others then
299: rollback to csfw_purge;
300: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
301: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
302: 'Exception occured while deleting CSFW_MSESSION sqlerrm = ' || sqlerrm);
303: end if;
304: fnd_message.set_name('CSF', 'CSF_CP_DONE_ERROR');
305: errbuf := fnd_message.get;
312: commit;
313:
314: -- need to clear old CSFW_MSESSION_URLID_S% sequences as well if it is there
315: begin
316: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
317: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
318: 'Start clearing old CSFW_MSESSION_URLID_S% sequences ...');
319: end if;
320:
313:
314: -- need to clear old CSFW_MSESSION_URLID_S% sequences as well if it is there
315: begin
316: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
317: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
318: 'Start clearing old CSFW_MSESSION_URLID_S% sequences ...');
319: end if;
320:
321: for l_old_seq_name in get_old_seq_name
325: EXECUTE IMMEDIATE l_seq_ddl_str;
326: end loop;
327: exception
328: when others then
329: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
331: 'Exception occured while deleting CSFW_MSESSION_URLID_S% sequences sqlerrm = ' || sqlerrm);
332: end if;
333: end;
326: end loop;
327: exception
328: when others then
329: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
331: 'Exception occured while deleting CSFW_MSESSION_URLID_S% sequences sqlerrm = ' || sqlerrm);
332: end if;
333: end;
334:
338: fnd_message.set_name('CSF', 'CSF_CP_DONE_SUCCESS');
339: errbuf := fnd_message.get;
340: retcode := 0;
341:
342: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
344: 'End of purge_server_session_java...');
345: end if;
346:
339: errbuf := fnd_message.get;
340: retcode := 0;
341:
342: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
344: 'End of purge_server_session_java...');
345: end if;
346:
347: END purge_server_session;