转帖：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'); 
10insert into userTabel values(2,'reboot') ;
11insert into userTabel values(3,'Jeff');
12
13--建包
14create or replace package pkg_BB is
15-- Author  : ADMINISTRATOR
16  -- Created : 2008-07-17 8:35:52
17  -- Purpose : 
18  
19  -- Public type declarations
20  type mycur is ref cursor;  
21  type myrecord is record( 
22                          myid usertabel.userid%type,
23                          myname usertabel.username%type);
24  procedure pro_GetCur(cur_return out mycur);
25  
26end pkg_BB;
27
28--包体
29create or replace package body pkg_BB is
30  -- Function and procedure implementations
31  procedure pro_GetCur(cur_return out mycur)  
32  is    
33  begin
34   open cur_return for select * from Usertabel;    
35  end pro_GetCur;
36end pkg_BB;
37
38--测试代码
39declare
40  rec pkg_bb.myrecord;
41  cur pkg_bb.mycur;
42begin
43 pkg_bb.pro_GetCur(cur);
44 
45 /**//*;
46  close cur;
47 dbms_output.put_line(rec.myid);
48 dbms_output.put_line(rec.myname);*/
49 loop 
50 fetch cur into rec;
51 exit when cur%notfound;
52 dbms_output.put_line(rec.myid);
53 dbms_output.put_line(rec.myname);
54 end loop;
55 close cur;
56 end;
57
58输出结果：
591
60Albert
612
62reboot
633
64Jeff
65
66

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

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

转载于:https://www.cnblogs.com/jinqiuqiu1120/archive/2009/02/13/1389943.html