プロシージャ内でのカーソルの使用

Question

なぜ以下のエラーが表示されるのですか？コードの何が間違っているのか教えてください。 ORA-06511：PL/SQL：カーソルすでにオープン

コード：

create or replace procedure student_info IS 
c_id student_details.student_id%type ;  
c_name student_details.student_name%type; 
c_status student_details.student_status%type; 

cursor stu_c1 IS 
select * from student_details 
where student_status='Absent'; 
begin 
open stu_c1; 
Fetch stu_c1 into c_id,c_name,c_status ; 
for rec in stu_c1 loop 
insert into student_data values (c_status,c_id,c_name); 
commit; 
end loop; 
CLOSE stu_c1;  
end; 

Answer 1

明示的なカーソルでFORループを使用している場合は、open/fetch/close/handle NOTFOUNDは必要ありません。

... 
begin 
--open stu_c1; -- extra, not needed 
--Fetch stu_c1 into c_id,c_name,c_status ; -- extra, not needed 
for rec in stu_c1 loop -- that's enough 
insert into student_data values (c_status,c_id,c_name); 
.... 
end loop; 
--CLOSE stu_c1; -- not needed 

また、あなたはオープン、クローズ、フェッチNOTFOUNDを扱うが、FOR ... INを使用しないでください。