当包第一次被动调用时,将进行初始化;比如将包从硬盘上调到内存中来,放到系统全局工作区的共享缓冲池中,包的运行状态则被放到用户全局区的会话中存储区中,因此可以保证每个调用包的会话都拥有包的运行副本,当会话结束时,包的运行状态才会被释放。
也就是说,包从第一次调用被初始化一直到会话结束才释放其运行状态,因此包中的变量具有会话级的作用域,因而可以跨多个事物存储数据。
如果再定义包规范时,指定了pragma serially_reusable ,则可以将包的运行状态保存在系统全局区,而不是用户全局区,这样每次调用包以后,包的运行状态就会被释放,这样再次调用包时,将重新开始包的状态;
注意:这种每次调用便释放的连续进行会占用大量的内存,内存的占用量与包的并发调用用户数成正比,而且当前登陆的用户数无关,因此需要谨慎使用
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;
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 不变;