1314: CURSOR c2 (
1315: p_per_cm_id NUMBER
1316: ) IS
1317: SELECT per_cm_prvdd_id
1318: FROM ben_per_cm_prvdd_f
1319: WHERE per_cm_id = p_per_cm_id
1320: FOR UPDATE OF per_cm_prvdd_id;
1321:
1322: --
1342: FOR r1 IN c1 LOOP
1343: OPEN c2 (
1344: r1.per_cm_id
1345: );
1346: <
1348: FETCH c2 INTO l_id;
1349: EXIT WHEN c2%NOTFOUND;
1350: DELETE FROM ben_per_cm_prvdd_f
1346: <
1347: LOOP
1348: FETCH c2 INTO l_id;
1349: EXIT WHEN c2%NOTFOUND;
1350: DELETE FROM ben_per_cm_prvdd_f
1351: WHERE CURRENT OF c2;
1352: END LOOP ben_per_cm_prvdd_f;
1353: CLOSE c2;
1354: OPEN c3 (
1348: FETCH c2 INTO l_id;
1349: EXIT WHEN c2%NOTFOUND;
1350: DELETE FROM ben_per_cm_prvdd_f
1351: WHERE CURRENT OF c2;
1352: END LOOP ben_per_cm_prvdd_f;
1353: CLOSE c2;
1354: OPEN c3 (
1355: r1.per_cm_id
1356: );