package :
掉用包在规范中声明的子程序、变量 、常量等,使用“包名.原素名”这样的形式,可以从任何存储的子程序、匿名块、数据库触发器中调用保包中的原素。
当包第一次被动调用时,将进行初始化;比如将包从硬盘上调到内存中来,放到系统全局工作区的共享缓冲池中,包的运行状态则被放到用户全局区的会话中存储区中,因此可以保证每个调用包的会话都拥有包的运行副本,当会话结束时,包的运行状态才会被释放。
<strong>也就是说,包从第一次调用被初始化一直到会话结束才释放其运行状态,因此包中的变量具有会话级的作用域,因而可以跨多个事物存储数据。</strong>
如果再定义包规范时,指定了pragma serially_reusable ,则可以将包的运行状态保存在系统全局区,而不是用户全局区,这样每次调用包以后,包的运行状态就会被释放,这样再次调用包时,将重新开始包的状态;
<span style="color:#ff0000;">注意:这种每次调用便释放的连续进行会占用大量的内存,内存的占用量与包的并发调用用户数成正比,而且当前登陆的用户数无关,因此需要谨慎使用;</span>
下面看具体实例:
--包体中包含 编译指示 ;
CREATE OR REPLACE PACKAGE pragma_serially_reusable_yes AS
PRAGMA SERIALLY_REUSABLE; --包体的编译指示;
-- countnum测试调用FUN_TEST的次数,如果不加 pragma serially_reusable v_num 的值是会话级变量 是不会改变的
countnum NUMBER :=0 ;
V_NUM NUMBER;
FUNCTION FUN_TEST RETURN NUMBER;
END;
/
CREATE OR REPLACE PACKAGE BODY pragma_serially_reusable_yes AS
PRAGMA SERIALLY_REUSABLE; --包体的编译指示;
FUNCTION FUN_TEST RETURN NUMBER AS
BEGIN
countnum :=countnum+1;
DBMS_OUTPUT.PUT_LINE('第 '||countnum||' 次调用fun_test,v_num的值是:' || V_NUM || ' ;');
RETURN V_NUM;
END FUN_TEST;
BEGIN
--包体的初始化 !
SELECT TO_NUMBER(TO_CHAR(SYSDATE, 'ss')) INTO V_NUM FROM DUAL;
END pragma_serially_reusable_yes;
/
--测试代码 ;
DECLARE
a NUMBER ;
b NUMBER ;
BEGIN
-- a:=pragma_serially_reusable_yes.FUN_TEST ;
b:=pragma_serially_reusable_no.FUN_TEST;
END;
--包体中不包含编译指示;
CREATE OR REPLACE PACKAGE pragma_serially_reusable_no AS
-- PRAGMA SERIALLY_REUSABLE; --包体的编译指示;
-- countnum测试调用FUN_TEST的次数,如果不加 pragma serially_reusable v_num 的值是会话级变量 是不会改变的
countnum NUMBER := 0 ;
V_NUM NUMBER;
FUNCTION FUN_TEST RETURN NUMBER;
END;
/
CREATE OR REPLACE PACKAGE BODY pragma_serially_reusable_no AS
-- PRAGMA SERIALLY_REUSABLE; --包体的编译指示;
FUNCTION FUN_TEST RETURN NUMBER AS
BEGIN
countnum :=countnum+1;
DBMS_OUTPUT.PUT_LINE('第 '||countnum||' 次调用fun_test,v_num的值是:' || V_NUM || ' ;');
RETURN V_NUM;
END FUN_TEST;
BEGIN
--包体的初始化 !
SELECT TO_NUMBER(TO_CHAR(SYSDATE, 'ss')) INTO V_NUM FROM DUAL;
END pragma_serially_reusable_no;
/
DECLARE
a NUMBER ;
b NUMBER ;
BEGIN
a:=pragma_serially_reusable_yes.FUN_TEST ;
-- b:=pragma_serially_reusable_no.FUN_TEST;
END;
-----------------------------------------------------------------------------------------------------------------------------
<pre class="sql" name="code">--包体中包含 编译指示 ;
CREATE OR REPLACE PACKAGE pragma_serially_reusable_yes AS
PRAGMA SERIALLY_REUSABLE; --包体的编译指示;
-- countnum测试调用FUN_TEST的次数,如果不加 pragma serially_reusable v_num 的值是会话级变量 是不会改变的
countnum NUMBER :=0 ;
V_NUM NUMBER;
FUNCTION FUN_TEST RETURN NUMBER;
END;
/
CREATE OR REPLACE PACKAGE BODY pragma_serially_reusable_yes AS
PRAGMA SERIALLY_REUSABLE; --包体的编译指示;
FUNCTION FUN_TEST RETURN NUMBER AS
BEGIN
countnum :=countnum+1;
DBMS_OUTPUT.PUT_LINE('第 '||countnum||' 次调用fun_test,v_num的值是:' || V_NUM || ' ;');
RETURN V_NUM;
END FUN_TEST;
BEGIN
--包体的初始化 !
SELECT TO_NUMBER(TO_CHAR(SYSDATE, 'ss')) INTO V_NUM FROM DUAL;
END pragma_serially_reusable_yes;
/
--测试代码 ;
DECLARE
a NUMBER ;
b NUMBER ;
BEGIN
-- a:=pragma_serially_reusable_yes.FUN_TEST ;
b:=pragma_serially_reusable_no.FUN_TEST;
END;
测试结果:
第 1 次调用fun_test,v_num的值是:36 ; --counnum 不变 v_num 改变;
第 274 次调用fun_test,v_num的值是:31 ; --countnum 改变,v_num 不变;