存储过程的小例子

create or replace procedure ptest is
begin
   declare cursor cur_s is
   select stock_code ,stock_name from stkcode;
   v_no varchar2(6);
   v_name varchar2(8);
   begin
     open cur_s;
     loop
      fetch cur_s into v_no,v_name;
      exit when cur_s % notfound;
      dbms_output.putline(v_no);
     end loop;
     close cur_s;
   end;
end ptest;