17: CURSOR c2 (
18: p_cwb_matrix_id NUMBER
19: ) IS
20: SELECT cwb_matrix_dtl_id
21: FROM ben_cwb_matrix_dtl
22: WHERE cwb_matrix_id = p_cwb_matrix_id
23: FOR UPDATE OF cwb_matrix_dtl_id;
24: l_id NUMBER;
25: BEGIN
31: FOR r1 IN c1 LOOP
32: OPEN c2 (
33: r1.cwb_matrix_id
34: );
35: <
37: FETCH c2 INTO l_id;
38: EXIT WHEN c2%NOTFOUND;
39: DELETE FROM ben_cwb_matrix_dtl
35: <
36: LOOP
37: FETCH c2 INTO l_id;
38: EXIT WHEN c2%NOTFOUND;
39: DELETE FROM ben_cwb_matrix_dtl
40: WHERE CURRENT OF c2;
41: END LOOP ben_cwb_matrix_dtl;
42: CLOSE c2;
43: DELETE FROM ben_cwb_matrix
37: FETCH c2 INTO l_id;
38: EXIT WHEN c2%NOTFOUND;
39: DELETE FROM ben_cwb_matrix_dtl
40: WHERE CURRENT OF c2;
41: END LOOP ben_cwb_matrix_dtl;
42: CLOSE c2;
43: DELETE FROM ben_cwb_matrix
44: WHERE CURRENT OF c1;
45: END LOOP;