1350: WHERE LAST_UPDATE_DATE < p_time_to
1351: AND LAST_UPDATE_DATE > p_time_from FOR UPDATE OF ERROR_ID NOWAIT;
1352:
1353:
1354: CURSOR c_xnp_debug(p_time_from IN DATE,p_time_to IN DATE) IS
1355: SELECT DEBUG_ID FROM XNP_DEBUG
1356: WHERE LAST_UPDATE_DATE < p_time_to
1357: AND LAST_UPDATE_DATE > p_time_from FOR UPDATE OF DEBUG_ID NOWAIT;
1358:
1351: AND LAST_UPDATE_DATE > p_time_from FOR UPDATE OF ERROR_ID NOWAIT;
1352:
1353:
1354: CURSOR c_xnp_debug(p_time_from IN DATE,p_time_to IN DATE) IS
1355: SELECT DEBUG_ID FROM XNP_DEBUG
1356: WHERE LAST_UPDATE_DATE < p_time_to
1357: AND LAST_UPDATE_DATE > p_time_from FOR UPDATE OF DEBUG_ID NOWAIT;
1358:
1359: l_xdp_debug_type XDP_DEBUG.DEBUG_TYPE%TYPE;
1357: AND LAST_UPDATE_DATE > p_time_from FOR UPDATE OF DEBUG_ID NOWAIT;
1358:
1359: l_xdp_debug_type XDP_DEBUG.DEBUG_TYPE%TYPE;
1360: l_xdp_error_id XDP_ERROR_LOG.ERROR_ID%TYPE;
1361: l_xnp_debug_id XNP_DEBUG.DEBUG_ID%TYPE;
1362:
1363: l_counter NUMBER := 0;
1364: l_no_reords NUMBER := 0;
1365: l_user_rollback BOOLEAN := TRUE;
1450: COMMIT;
1451:
1452: l_user_rollback := USER_ROLLBACK_CTRL(p_rollback_segment);
1453:
1454: SELECT COUNT(*) INTO l_no_reords FROM XNP_DEBUG
1455: WHERE LAST_UPDATE_DATE < p_time_to
1456: AND LAST_UPDATE_DATE > p_time_from;
1457:
1458: RECORDS_PURGED_MSGS(l_no_reords,'XNP_DEBUG',l_rec_name,-1);
1454: SELECT COUNT(*) INTO l_no_reords FROM XNP_DEBUG
1455: WHERE LAST_UPDATE_DATE < p_time_to
1456: AND LAST_UPDATE_DATE > p_time_from;
1457:
1458: RECORDS_PURGED_MSGS(l_no_reords,'XNP_DEBUG',l_rec_name,-1);
1459:
1460: l_counter := 0;
1461: IF p_run_mode = 'PURGE' THEN
1462: <
1458: RECORDS_PURGED_MSGS(l_no_reords,'XNP_DEBUG',l_rec_name,-1);
1459:
1460: l_counter := 0;
1461: IF p_run_mode = 'PURGE' THEN
1462: <
1464: -- REOPEN IT AFTER COMMIT
1465: OPEN c_xnp_debug(p_time_from,p_time_to);
1466: <
1461: IF p_run_mode = 'PURGE' THEN
1462: <
1463: LOOP
1464: -- REOPEN IT AFTER COMMIT
1465: OPEN c_xnp_debug(p_time_from,p_time_to);
1466: <
1467: LOOP
1468: FETCH c_xnp_debug INTO l_xnp_debug_id;
1469: -- IF NO DATA FOUND, THEN EXIT
1462: <
1463: LOOP
1464: -- REOPEN IT AFTER COMMIT
1465: OPEN c_xnp_debug(p_time_from,p_time_to);
1466: <
1468: FETCH c_xnp_debug INTO l_xnp_debug_id;
1469: -- IF NO DATA FOUND, THEN EXIT
1470: IF c_xnp_debug%notfound THEN
1464: -- REOPEN IT AFTER COMMIT
1465: OPEN c_xnp_debug(p_time_from,p_time_to);
1466: <
1467: LOOP
1468: FETCH c_xnp_debug INTO l_xnp_debug_id;
1469: -- IF NO DATA FOUND, THEN EXIT
1470: IF c_xnp_debug%notfound THEN
1471: EXIT OUTER_XNP_DEBUG; -- we are done
1472: END IF;
1466: <
1467: LOOP
1468: FETCH c_xnp_debug INTO l_xnp_debug_id;
1469: -- IF NO DATA FOUND, THEN EXIT
1470: IF c_xnp_debug%notfound THEN
1471: EXIT OUTER_XNP_DEBUG; -- we are done
1472: END IF;
1473:
1474: DELETE FROM XNP_DEBUG WHERE CURRENT OF c_xnp_debug;
1467: LOOP
1468: FETCH c_xnp_debug INTO l_xnp_debug_id;
1469: -- IF NO DATA FOUND, THEN EXIT
1470: IF c_xnp_debug%notfound THEN
1471: EXIT OUTER_XNP_DEBUG; -- we are done
1472: END IF;
1473:
1474: DELETE FROM XNP_DEBUG WHERE CURRENT OF c_xnp_debug;
1475: l_counter:=l_counter+1;
1470: IF c_xnp_debug%notfound THEN
1471: EXIT OUTER_XNP_DEBUG; -- we are done
1472: END IF;
1473:
1474: DELETE FROM XNP_DEBUG WHERE CURRENT OF c_xnp_debug;
1475: l_counter:=l_counter+1;
1476: IF (l_counter > g_max_rows_before_commit) AND (NOT l_user_rollback) THEN
1477: l_counter := 0;
1478: COMMIT;
1475: l_counter:=l_counter+1;
1476: IF (l_counter > g_max_rows_before_commit) AND (NOT l_user_rollback) THEN
1477: l_counter := 0;
1478: COMMIT;
1479: EXIT INNER_XNP_DEBUG; -- commit and reopen the cursor
1480: END IF;
1481: END LOOP INNER_XNP_DEBUG;
1482: IF (c_xnp_debug%ISOPEN) THEN
1483: CLOSE c_xnp_debug;
1477: l_counter := 0;
1478: COMMIT;
1479: EXIT INNER_XNP_DEBUG; -- commit and reopen the cursor
1480: END IF;
1481: END LOOP INNER_XNP_DEBUG;
1482: IF (c_xnp_debug%ISOPEN) THEN
1483: CLOSE c_xnp_debug;
1484: END IF;
1485: END LOOP OUTER_XNP_DEBUG;
1478: COMMIT;
1479: EXIT INNER_XNP_DEBUG; -- commit and reopen the cursor
1480: END IF;
1481: END LOOP INNER_XNP_DEBUG;
1482: IF (c_xnp_debug%ISOPEN) THEN
1483: CLOSE c_xnp_debug;
1484: END IF;
1485: END LOOP OUTER_XNP_DEBUG;
1486: END IF;
1479: EXIT INNER_XNP_DEBUG; -- commit and reopen the cursor
1480: END IF;
1481: END LOOP INNER_XNP_DEBUG;
1482: IF (c_xnp_debug%ISOPEN) THEN
1483: CLOSE c_xnp_debug;
1484: END IF;
1485: END LOOP OUTER_XNP_DEBUG;
1486: END IF;
1487: COMMIT;
1481: END LOOP INNER_XNP_DEBUG;
1482: IF (c_xnp_debug%ISOPEN) THEN
1483: CLOSE c_xnp_debug;
1484: END IF;
1485: END LOOP OUTER_XNP_DEBUG;
1486: END IF;
1487: COMMIT;
1488:
1489: l_user_rollback := USER_ROLLBACK_CTRL(p_rollback_segment);