转帖：Oracle包体用法及测试代码

 1--建表
 2create table userTabel( 
 3  userid number(10), 
 4  username varchar2(100), 
 5  constraint PK_USERID PRIMARY KEY(userid) 
 6); 
 7commit; 
 8
 9insert into userTabel values(1,'Albert'); 
insert into userTabel values(2,'reboot') ;
insert into userTabel values(3,'Jeff');

--建包
create or replace package pkg_BB is
-- Author  : ADMINISTRATOR
  -- Created : 2008-07-17 8:35:52
  -- Purpose : 
  
  -- Public type declarations
  type mycur is ref cursor;  
  type myrecord is record( 
                          myid usertabel.userid%type,
                          myname usertabel.username%type);
  procedure pro_GetCur(cur_return out mycur);
  
end pkg_BB;

--包体
create or replace package body pkg_BB is
  -- Function and procedure implementations
  procedure pro_GetCur(cur_return out mycur)  
  is    
  begin
   open cur_return for select * from Usertabel;    
  end pro_GetCur;
end pkg_BB;

--测试代码
declare
  rec pkg_bb.myrecord;
  cur pkg_bb.mycur;
begin
 pkg_bb.pro_GetCur(cur);
 
 /**//*;
  close cur;
 dbms_output.put_line(rec.myid);
 dbms_output.put_line(rec.myname);*/
 loop 
 fetch cur into rec;
 exit when cur%notfound;
 dbms_output.put_line(rec.myid);
 dbms_output.put_line(rec.myname);
 end loop;
 close cur;
 end;

输出结果：
1
Albert
2
reboot
3
Jeff

内容是从CSDN上一位好人的回帖中抠出来的，再次谢过了~

PS:若想通过PL/SQL工具来测试包里面的存储过程，可以发现包体文件夹中的存储过程的图标和真正存储过程文件夹中的是不一样的（前者是绿色圆圈，后者是蓝色立方体），需要在包体里面找到相应的存储过程，然后右键查看或者编辑，然后在打开的窗口中就可以发现左侧窗口上找到存储过称滚轮，这时右键就会有Test出现了；或者在包文件夹下找到指定包，然后在其下的存储过程文件夹中找到要测试的存储过程右键，就有了！估计会觉得写的很弱智，不过当时确实找了半天！