1586: CURSOR c24 (
1587: p_per_in_ler_id IN NUMBER
1588: ) IS
1589: SELECT cbr_per_in_ler_id
1590: FROM ben_cbr_per_in_ler
1591: WHERE per_in_ler_id = p_per_in_ler_id
1592: FOR UPDATE OF cbr_per_in_ler_id;
1593:
1594: --
1870: END LOOP;
1871: OPEN c24 (
1872: r1.per_in_ler_id
1873: );
1874: <
1876: FETCH c24 INTO l_id;
1877: EXIT WHEN c24%NOTFOUND;
1878: DELETE FROM ben_cbr_per_in_ler
1874: <
1875: LOOP
1876: FETCH c24 INTO l_id;
1877: EXIT WHEN c24%NOTFOUND;
1878: DELETE FROM ben_cbr_per_in_ler
1879: WHERE CURRENT OF c24;
1880: END LOOP ben_cbr_per_in_ler;
1881: CLOSE c24;
1882: OPEN c25 (
1876: FETCH c24 INTO l_id;
1877: EXIT WHEN c24%NOTFOUND;
1878: DELETE FROM ben_cbr_per_in_ler
1879: WHERE CURRENT OF c24;
1880: END LOOP ben_cbr_per_in_ler;
1881: CLOSE c24;
1882: OPEN c25 (
1883: r1.per_in_ler_id
1884: );