存储过程调用游标

declare

 cursor merchandise_cursor(id number)

  is select id from tab01;

type merchandise is record(

id tab01.id%type);

   merchandise_row merchandise;

id number;

id_new number;

id_old number;

begin

 open merchandise_cursor(1);

loop

fetch merchandise_cursor into merchandise_row;

exit when  merchandise_cursor%notfound;

id_new:=id_old;

dbms_output.put_line( merchandise_row.id);

end loop;

close merchandise_cursor;

end;