游标、type使用示例

declare

my_cur sys_refcursor; --定义游标变量

type v_record is record( --定义 record类型
obj_id number,
obj_name varchar2(2000));

my_record v_record; --定义record变量

begin
open my_cur for 'select object_id,object_name from dba_objects where object_id <20';
loop
fetch my_cur
into my_record;
exit when my_cur%notfound;
dbms_output.put_line(my_record.obj_id || chr(9) || my_record.obj_name);
end loop;
end;