5
创建过程
创建过程实例 :
create or replace procedure myproc
is
cursor mycursor is select * from emp;
myrecord mycursor%rowtype;
begin
open mycursor;
loop
fetch mycursor into myrecord;
exit when mycursor%notfound;
dbms_output.put(to_char(mycursor%rowcount)||':');
dbms_output.put_line(myrecord.ename);
end loop;
close mycursor;
end myproc;
