...
cursor c is select .....
begin
open c;
loop
fetch c into ...
exit when c%notfound;
end loop;
close c; <------这里关闭
end;
cursor c is select .....
begin
open c;
loop
fetch c into ...
exit when c%notfound;
end loop;
close c; <------这里关闭
end;
fetch cur_name into v_name ;
while cur_name%found loop
concrete actions ;
fetch cur_name into v_name ;
end loop;
close cur_name;