303: PRAGMA AUTONOMOUS_TRANSACTION;
304:
305: CURSOR get_log
306: IS SELECT text
307: FROM hxc_rollback_log
308: WHERE type = g_program
309: ORDER BY seq;
310:
311:
370: END LOOP;
371: CLOSE get_log;
372:
373:
374: DELETE FROM hxc_rollback_log
375: WHERE type = g_program;
376: COMMIt;
377:
378:
389: PRAGMA AUTONOMOUS_TRANSACTION;
390:
391: BEGIN
392:
393: DELETE FROM hxc_rollback_log
394: WHERE type = g_program;
395: COMMIT;
396:
397: END delete_old_log;
1233:
1234: IF p_cache = 'Y'
1235: THEN
1236: g_seq := g_seq+1;
1237: INSERT INTO hxc_rollback_log
1238: (seq,text,type)
1239: VALUES
1240: (g_seq,p_text,g_program);
1241: COMMIT;