创建基本表

-- Create table

create table USER_INFORMATION

(

P_ID            NUMBER,

USER_LOGIN_NAME NVARCHAR2(30)

)

创建包:

create or replace package pack_test is  

       type cur_test is ref cursor;  

end pack_test; 

/  

--这个不能少呀，加上这个就可以在sql/plus中运行了，这个是结束符号

创建存储过程

create or replace procedure proc_cur(p_id in number,p_cur out pack_test.cur_test)   

is   

       v_sql varchar2(400);

begin  

       if p_id = 0 then   

          open p_cur for select * from user_information;   

       else   

          v_sql := 'select * from user_information where id =: p_id';   

          open p_cur for v_sql using p_id;   

       end if;   

end proc_cur;

测试存储过程

-- Test statements here  

set serveroutput on

declare   

 v_id number := 0;  

 v_row USER_INFORMATION%rowtype;   --注意这里是表名

 p_cur pack_test.cur_test;

begin   

 proc_cur(v_id, p_cur);  

 loop  

    fetch p_cur into v_row;  

    exit when p_cur%notfound;  

    DBMS_OUTPUT.PUT_LINE(v_row.USER_LOGIN_NAME||'='||v_row.P_ID);  

 end loop;  

 close p_cur;  

end; 

/  

 --语句块结束符号