Oracle Package

（转自：http://blog.csdn.net/bbliutao/article/details/9016947）

一、概述
包可将一些有联系的对象放在其内部。
任何能在块定义部分出现的对象都可以在包中出现。这些对象包括存储过程、函数、游标、自定义的类型和变量。
我们可以在其它的PLSQL块中引用包中的这些对象，也就是说，包为PLSQL提供了全局变量。
包可以实现信息屏蔽和子程序重载。

二、包的定义
一个包由两个独立部分组成——包头和包体，各部分被单独存放在数据字典中，定义一个包，要分别定义包头和包体。

1、定义包头
（1）、语法：
create or replace package [schema.] package_name {is|as}
pl/sql_package;

其中package_name是包的名称，pl/sql_package可以是存储过程、函数、变量、类型、异常及游标的定义。

存储过程和函数必须在包头中预定义。也就是说，在包头中仅定义存储过程名或函数名以及它们的参数，
存储过程或函数的执行代码将在包体中定义，这不同于无名块中定义存储过程和函数。

例一：
create or replace package aupack as
procedure qusalary(p_code auths.code%type,p_salary out auths.salary%type);
procedure inauthor(p_code auths.code%type,p_salary out auths.salary%type);
end aupack;

2、定义包体
包体是有个数据字典对象。只有在包头成功编译后，包体才能被编译。包体只包含包头中已预定义的子程序代码。
在包头中定义(不是预定义)的对象可以直接在包体中使用，不必再在包体中定义。

（1）、语法：
create or replace package body [schema.] package_name {is/as}
pl/sql_body;

其中package_name为包名，该包名必须与定义包头时的名称一样，pl/sql_body为过程与函数的定义

如果包头不包含存储过程和函数，则不必定义包体。如果包头中有预定义的子程序(存储过程和函数)，
则在包体中必须编写其子程序代码，而且包头和包体两部分指定的子程序必须一致。
这包括相同的子程序名、参数名、和参数类型。

例一：
create or replace package body aupack is
procedure qusalary(p_code auths.code%type,p_salary out auths.salary%type) as
begin
...
end aupack;
procedure inauthor(p_code auths.code%type,p_salary out auths.salary%type) as
begin
...
end inauthor;

三、包的初始化

1、概述
包的初始化，也称包的构造过程。类似于C++的构造函数和JAVA的构造方法。
当在会话内第一次被调用时会自动执行，并且在同一会话内只会执行一次。
包的构造过程没有名称，在包体实现了包头定义的子程序后的最后部分被定义，以begin开始、end结束。

2、语法
create or replace package body package_name {is|as}
... --实现包体中过程与函数的定义部分
begin
... --初始化代码
end;

例子
create or replace package apack as
v_sex varchar2(2);
procedure a_sex(p_code auths.code%type,p_sex out varchar2);
end apack;

create or replace body apack as
procedure a_sex(p_code auths.code%type,p_sex out varchar2) as
v_sex number;
begin
select sex into v_sex from auths where code=p_code;
if v_sex=0 then
p_sex:='女';
else
p_sex:='男';
end if;
end apack;
begin
a_sex('A0001',v_sex); --初始化部分
end apack;

四、包中子程序的重载
1、定义
在包的内部，存储过程和函数都可被重载，这意味着有多个存储过程或函数可以使用同一名称，但是参数不能相同。
这样就允许不同的参数调用同一名字的过程或函数。但需要注意同名的函数返回值得数据类型必须完全相同。

例一
create or replace package pac_temp is
procedure ad(p_in number);
procedure ad(p_in varchar2);
end pac_temp;

create or replace package body pac_temp is
procedure ad(p_in number) as
begin
dbms_output.put_line(p_in);
dbms_output.put_line('我是number');
end ad;

procedure ad(p_in varchar2) as
begin
dbms_output.put_line(p_in);
dbms_output.put_line('我是varchar2');
end ad;
end pac_temp;

begin
dbms_output.put_line('a');
pac_temp.ad('5');
pac_temp.ad(5);
end;

2、重载的局限性
（1）、当仅仅参数名不同或者是模式(in,out,in out)不同时，不能重载。
（2）、不能对仅有返回类型不同的函数进行重载。
（3）、重载函数的参数必须是数据类型不同间不可自动转换的。此类错误在编译时不会报错，但调用若自动转换发生错误会报错。

五、包的删除
drop package body pac_name; --只删除包体
drop package pac_name; --删除包

六、包函数的使用纯度级别

1、概述
首先，应该明确这里说的是包里面的函数。要在sql语句中引用包的函数，那么该函数不能含有DML语句，也不能读写远程包的变量。
为了对包的函数加以限制，在定义包头时使用可以使用纯度级别限制函数。

2、语法
pragma restrict_references(function_name,wnds[,wnps,rnds,rnps]); --能在sql语句中调用的函数都有wnds基本约束

四种约束的含义：
WNDS：函数内不能修改数据库数据(即禁止DML操作)。
WNPS：函数内不能修改包变量(即不能给包变量赋值)。
RNDS：函数内不能读取数据数据(即禁止执行select操作)。
RNPS：函数内不能读取包变量(即不能将包变量赋值给其他变量)。

根据对函数的四种基本约束，满足下面约束的函数可以被sql语句调用：
（1）、当函数满足WNDS时，能被SQL语句调用。
（2）、当函数满足RNPS和WNPS约束时，这个函数(通过数据库连接)能被远程或并行调用。
（3）、在select、valules或set子句中调用的函数可以没有wnps约束，但在其它的子句中就必须满足wnps约束。
（4）、一个函数所调用的子程序与该函数的约束级别相同。
（5）、在含有create table或alter table 命令的check子句中，不能调用直接创建的函数，因为这些语句中的定义不能变化。

3、restrict_references编译指令的应用

当将单独存储在数据库中的函数用在sql语句时，plsql引擎自动确定该函数有哪些约束，这些约束能否保证函数在sql语句中的调用。
对于包函数，则先在包内部使用restrict_references编译指令来指定包函数的约束。
在sql语句中调用这个包函数时，plsql根据编译指令指定的约束来来判断包函数能否在sql语句中调用。

例一：
create or replace package authorpack as
function fun(p_authorcode auths.author_code%type) return varchar2;
pragma restrict_references(fun,WNDS,WNPS,RNPS); --指定3种约束
function authorcount return number;
pragma restrict_references(authorcount,WNDS,WNPS,RNPS)
end authorpack;

create or replace body authorpack as
v_num number; --包变量
function fun(p_authorcode auths.author_code%type) return varchar2 as
v_return varchar2(16);
begin
select author||name into v_return from auths where author_code=p_authorcode;
return v_return;
end fun;

function authorcount return number as
v_return number;
begin
if v_num is null then --包变量被读，不满足RNPS
select count(*) into v_return from auths where author_code like 'A%';
v_num:=v_return; --包变量被修改，不满足WNPS
else
v_return:=v_num;
end if;
return v_return;
end authorcount;
end authorpack;

例二
create or replace package purity is
minsal number(6,2);
maxsal number(6,2);
function max_sal return number;
function min_sal return number;
pragma restrict_references(max_sal,WNPS);
pragma restrict_references(min_sal,WNPS);
end;

create or replace package body purity is
function max_sal return number is
begin
select max(sql) into maxsal from emp; --违反WNPS
return maxsal;
end;
function min_sal return number is
begin
select max(sql) into maxsal from emp; --违反WNPS
return maxsal;
end;
end;

在包头的fun函数中使用了restrict_references编译指令指定约束，包体中的fun函数代码显然符合编译指令指定的约束——没有修改数据库表、没有读包中变量、没有修改包中变量。
在包头的authorcount函数中使用了restrict_references编译指令，但在包体中的authorcount函数代码
并不符合指定的约束，包体中定义的变量v_num不仅仅被该函数读出(不满足rnps约束)，而且被修改(不满足wnps约束)，
所以plsql引擎编译到函数authorcount是，会报“pls-00452”的错误。

注意事项：
（1）、plsql编译程序根据编译指令来确认包函数的基本约束，从而确认这个包函数是否能在sql语句中使用。
只要随后修改了包体(或第一次创建)，就要按照编译指令校检函数代码。
（2）、包初始化部分的代码同样也可以有基础约束。包的基本约束也用restrict_references来指定，
但应以包名为参数而不是以函数名为参数。
（3）、restrict_references可在包中函数定义后的任何位置出现，但它只能约束一个函数的定义。
因此，对于函数的重载，pragma只约束最近定义的函数。
（4）、如果函数中用到了系统包，则该函数不能用在sql语句中。常见系统包dbms_output,dbms_pipe,dbms_alter,dbms_sql,utl_file等。
（5）、当过程性语句中调用一个函数时，可以使用参数缺省值，而通过sql语句调用一个函数时，所有的参数都必须指定。
另外必须使用位置表示法，而不能使用名称表示法。