oracle 游标实例

create or replace procedure test

as

 CURSOR cursor_test IS select 5  from dual

            union all  select 6  from dual

            union all  select 7  from dual

            union all  select 8  from dual

            union all  select 9  from dual;

 p_pm1 number;

 p_pm2 number;

begin

 

--打开游标

  open cursor_test;

  LOOP

 

  fetch cursor_test into p_pm1;

  exit when cursor_test%notfound;

 

  select p_pm1 into p_pm2 from dual;

  end loop;

 --关闭游标

 close cursor_test;

 --提交

 commit;

 exception

 when others then

   rollback;

 

end test;