Curson

declare
cursor c_user is
select id,subscriberidentify,msisdn from t_pcc_subscriber;
c_user1 c_user%rowtype;

begin
open c_user;
loop
fetch c_user into c_user1;
if c_user%found then
dbms_output.put_line(c_user1.subscriberidentify);
end if;

exit when c_user%NOTFOUND;
end loop;
close c_user;

end;


declare
type tmp_curson is ref cursor;
v_curson tmp_curson;
Shop_Name varchar2(50);
c_exp exception;
begin

open v_curson for select Shop_Name from SHOP;
loop
fetch v_curson into Shop_Name;
if v_curson%found then
dbms_output.put_line(Shop_Name);
update SHOP set Shop_Name = '9999888' where Shop_Id = 6;
SAVEPOINT SPT_ADD_SUBSCRIPTION;
-- update SHOP set Shop_Name = '9999888' where Shop_Id = 6;
raise c_exp;
end if;

exit when v_curson%notfound;
end loop;
close v_curson;
commit;

exception
when c_exp then
dbms_output.put_line('c_exp...');
ROLLBACK TO SAVEPOINT SPT_ADD_SUBSCRIPTION;
when others then
dbms_output.put_line(Sqlerrm);

end;