create or replace procedure test_proc is
v_corpid corpinfo.corpid%type := '16000000001%';
vv corpinfo%rowtype;
--定义游标
cursor one is
select * from corpinfo where corpinfo.corpid like v_corpid;
begin
--遍历游标1
open one;
loop
fetch one
into vv;
exit when one%notfound;
dbms_output.put_line(vv.corpid || ' ' || vv.corpname || ' ' ||
vv.corpdesc || ' ' || vv.corpfeenumber);
end loop;
close one;
dbms_output.put_line('-----------------------------------');
--遍历游标2
for oo in one loop
dbms_output.put_line(oo.corpid || ' ' || oo.corpname || ' ' ||
oo.corpdesc || ' ' || oo.corpfeenumber);
end loop;
exception when others then
dbms_output.put_line('DB Exception ..');
end test_proc;