PL/SQL 包头和包体

   包用于逻辑组合相关的过程和函数,它由包规范和包体两部分组成,包规范用于定义公用的常量

变量,过程和函数,在SQL*PLUS中建立包规范可以使用CREATE PACKAGE命令。

实例如下:
CREATE OR REPLACE PACKAGE emp_pkg IS
  PROCEDURE update_sal(name VARCHAR2,newsal NUMBER);
  FUNCTION annual_incom(name VARCHAR2) RETURN NUMBER;
  END;

包头值包含了过程和函数的说明,而没有过程和函数的实现代码。包体用于实现包规范中的过程和函数,

在SQL*PLUS中建立包体可以使用CREATE PACKAGE BODY命令。实例如下:
CREATE OR REPLACE PACKAGE BODY EMP_PKG IS
PROCEDURE update_sal(name VARCHAR2,newsal NUMBER)
  IS
 BEGIN
   UPDATE EMP set sal=newsal
   where lower(ename)=lower(name);
   end;
FUNCTION annual_incom(name VARCHAR2) return number
  IS
  annual_salary NUMBER(7,2);
  begin
    select sal*12 + nvl(comm,0) INTO annual_salary
    from emp where lower(ename)=lower(name);
    RETURN annual_salary;
    end;
    end;

当调用包的过程和函数时,在过程和函数名之前必须要带有包名作为前缀(包名.子程序名),

而如果要访问其他方案的包,还必须要加方案名作为前缀(方案名.包名.子程序名).

SQL> set serveroutput on
SQL> exec emp_pkg.update_sal('scott',1500);

PL/SQL procedure successfully completed.

SQL> select emp_pkg.annual_incom('scott') from dual;

EMP_PKG.ANNUAL_INCOM('SCOTT')
-----------------------------
			18000