如何获取游标的每条记录

DECLARE
  TYPE INFO IS RECORD(
    BNAME  BOOK.BOOK_NAME%TYPE,
    WRITER BOOK.WRITER%TYPE,
    PRICE  BOOK.PRICE%TYPE);
  RES INFO;
  CURSOR C_INFO(P IN NUMBER DEFAULT 30) IS
    SELECT DISTINCT BOOK_NAME, WRITER, PRICE FROM BOOK WHERE PRICE > P;
BEGIN
  OPEN C_INFO(35);
  LOOP
    
    FETCH C_INFO
      INTO RES;
    DBMS_OUTPUT.PUT('ÊéÃû: ' || RES.BNAME||' ');
    DBMS_OUTPUT.PUT('×÷Õß: ' || RES.WRITER||' ');
    DBMS_OUTPUT.PUT_LINE('¼Û¸ñ: ' || RES.PRICE||' ');
    EXIT WHEN C_INFO%NOTFOUND;
  END LOOP;
  CLOSE C_INFO;
END;

--创建类型

create or replace package mytest is

  -- Author  : ADMINISTRATOR
  -- Created : 2008-5-13 11:19:28
  -- Purpose : test
 
TYPE record_type IS RECORD(
      code   VARCHAR2(18),
      p_name VARCHAR2(16));

TYPE ref_cur_type IS REF CURSOR;
end mytest;

CREATE OR REPLACE TYPE table_type IS TABLE OF record_type;

--创建过程

CREATE OR REPLACE PROCEDURE testproc( v_ref_cur out mytest.ref_cur_type) IS

   v_record record_type;

   v_table table_type := table_type();

BEGIN
   FOR i IN 1 .. 9 LOOP
      v_record := NEW record_type(''45212319830810435'' || i, ''侯廷文'' || i);
      v_table.EXTEND;
      v_table(i) := v_record;
   END LOOP;

   OPEN v_ref_cur FOR
      SELECT * FROM TABLE(CAST(v_table AS table_type));

END testproc;