oracle plsql 游标

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;