包的变量作用域测试说明

    Oracle Database 10g Enterprise Edition Release 10.2.0.1.0

  1. 包中作用域种类说明以及声明位置 

     a. publish、private、locavariable 三种类型，当然每种类型包括了变量、函数、类型等。
     b. publish类声明在非包体中(不带body的)
private类声明在包体中
locavariable类声明在包中函数、过程对象里面的

  2. 作用域说明

     a. publish类，包外可以使用，可以进行取值、赋值操作，每次使用本变量时，包体中的begin-end模块会被初始化，同时此类变量生存周期是会话的生存周期，当包被重新编译，此变量将被重新初始化，否则只初始化一次。
     b. private类，包外不可以使用,作用域限定待包体中(带body的)，生存周期是会话周期，周期内只被初始化一次，当包被重新编译，此变量将被重新初始化
     c. locavariable类变量，作用域是在函数、过程等对象用，与一般函数变量声明一致。

  4. 注意：

包中的begin-end模块，在每次调用包的时候都需要进行初始化运行。

  3. 测试demo

       创建测试包

create or replace package testpkg is

  -- Author  : ZHENGZY
  -- Created : 2013/5/21 9:57:02
  -- Purpose : 测试包的特性
    
  -- Public constant declarations
  Cons_Varchar constant varchar2(100) := 'TestPkg';
  -- Public variable declarations
  V_GlobVarchar varchar2(1000) := '1000';
  V_Globinteger INTEGER;

  -- Public function and procedure declarations
  function fc_IncNumAndConnStr return varchar2;

end testpkg;

create or replace package body testpkg is
 
  -- Private constant declarations
  Cons_Varchar2 constant varchar2(100) := 'TestPkgPrivate';

  -- Private variable declarations
  V_GlobVarchar2 varchar2(1000);
  V_Globinteger2 INTEGER;

  -- Function and procedure implementations
  function fc_IncNumAndConnStr return varchar2 is
    V_Result varchar2(2000);
  begin
    V_globvarchar := V_globvarchar ||'  HELLO';
    V_globinteger := NVL(v_globinteger,0) + 1;
    V_Globinteger2 := nvl(V_Globinteger2,0) + 1;
    V_Result :='V_Globvarchar=' ||V_Globvarchar||to_char(v_globinteger) || chr(13) ||
             	 'V_globVarchar2=' ||V_globVarchar2 ||chr(13)|| 
                'V_globVarchar3='||to_char(V_Globinteger2);
               
    return(V_Result);
  end;

begin
  V_globVarchar2 := V_globVarchar2||'body ini.';
end testpkg;

create or replace package testpkg2 is

  -- Created : 2013/5/21 10:18:46
  -- Purpose : 测试公共变量
  
  -- Public function and procedure declarations
  function fc_setvaluetovar return varchar2;

end testpkg2;
create or replace package body testpkg2 is

  function fc_setvaluetovar return varchar2 is
    result varchar2(200);
  begin
    testpkg.V_GlobVarchar := testpkg.V_GlobVarchar|| 'hello';
    result := testpkg.V_GlobVarchar;
    return(Result);
  end;

begin
  null;
end testpkg2;

  执行语句：

SELECT TESTPKG.FC_INCNUMANDCONNSTR FROM DUAL; 
SELECT TESTPKG2.FC_SETVALUETOVAR FROM DUAL; 

首次结果： 

V_Globvarchar=1000  HELLO1
V_globVarchar2=body ini.
V_globVarchar3=1

--
1000  HELLOhello

第二次结果：

 

V_Globvarchar=1000  HELLOhello  HELLO2
V_globVarchar2=body ini.
V_globVarchar3=2

1000  HELLOhello  HELLOhello