Oracle ref 强类型游标

create or replace procedure RefCursor
as
type toys_curtyp is ref cursor;
     cur toys_curtyp;
    
       stmt_str VARCHAR2(200);
       v_TAID number;
       v_taname VARCHAR2(100);
       v_bqid number;
begin
  stmt_str :='select TAID, taname, bqid from table3';
  OPEN cur FOR stmt_str;
 
  loop
       FETCH cur INTO v_TAID, v_taname,v_bqid;
       exit when cur%notfound;
      dbms_output.put_line(v_TAID||':'||v_taname|| ':' ||v_bqid);       
      end loop;
     
  CLOSE cur;

end RefCursor;