使用DBMS_SHARED_POOL包将PL/SQL大对象保存到Shared Pool

当系统在加载PL/SQL大对象时，有可能遭遇由于Shared Pool中存在大量碎片导致没有足够空间加载的问题。

我们可以将那些经常被使用的PL/SQL大对象预先保存到Shared Pool中，防止加载失败以及经常被换出，提高系统运行效率。

1.创建存储过程初始化测试环境

这里使用文章《【PL/SQL】向表中插入连续数字之PL/SQL方法》（http://space.itpub.net/519536/viewspace-696181）中提供的方法创建一个简单的存储过程用于测试。

注：实际生产环境中，该方法用于保存PL/SQL大对象，而非本例中给出的样例存储过程。

sys@ora10g> conn sec/sec

Connected.

sec@ora10g> create or replace procedure p_insert

2 is

3 begin

4 for i in 1..10 loop

5 insert into t values(i);

6 end loop;

7 commit;

8 end;

9 /

Procedure created.

2.创建DBMS_SHARED_POOL包

系统默认情况下不会创建dbms_shared_pool这个包。我们可以使用dbmspool.sql脚本进行手工创建。

1）验证默认情况下DBMS_SHARED_POOL包未创建

sys@ora10g> desc dbms_shared_pool

ERROR:

ORA-04043: object dbms_shared_pool does not exist

2）执行创建DBMS_SHARED_POOL包脚本

sys@ora10g> @?/rdbms/admin/dbmspool.sql

Package created.

Grant succeeded.

View created.

Package body created.

3）查看创建成功的DBMS_SHARED_POOL包

sys@ora10g> desc dbms_shared_pool

PROCEDURE ABORTED_REQUEST_THRESHOLD

Argument Name Type In/Out Default?

------------------------------ ----------------------- ------ --------

THRESHOLD_SIZE NUMBER IN

PROCEDURE KEEP

Argument Name Type In/Out Default?

------------------------------ ----------------------- ------ --------

NAME VARCHAR2 IN

FLAG CHAR IN DEFAULT

PROCEDURE SIZES

Argument Name Type In/Out Default?

------------------------------ ----------------------- ------ --------

MINSIZE NUMBER IN

PROCEDURE UNKEEP

Argument Name Type In/Out Default?

------------------------------ ----------------------- ------ --------

NAME VARCHAR2 IN

FLAG CHAR IN DEFAULT

我们这里关注DBMS_SHARED_POOL包中的KEEP和UNKEEP方法。

3.使用DBMS_SHARED_POOL包将存储过程保存到Shared Pool

1）确认存储过程P_INSERT是否被保存到Shared Pool

可以通过查询v$db_object_cache视图获得这方面的信息。

sys@ora10g> col owner for a10;

sys@ora10g> col name for a30;

sys@ora10g> col kept for a4

sys@ora10g> select owner,name,type,kept from v$db_object_cache where name='P_INSERT';

OWNER NAME TYPE KEPT

---------- ------------------------------ -------------------- ----

SEC P_INSERT PROCEDURE NO

最后一列KEPT表明存储过程P_INSERT此时没有被保存到Shared
Pool。

2）保存存储过程P_INSERT到Shared Pool

由于存储过程p_insert是创建在sec用户下，我们可以使用如下方法将该存储过程保存到Shared Pool中。

sys@ora10g> exec dbms_shared_pool.keep('SEC.P_INSERT','P');

PL/SQL procedure successfully completed.

3）在此确认存储过程P_INSERT是否被保存到Shared
Pool

sys@ora10g> select owner,name,type,kept from v$db_object_cache where name='P_INSERT';

OWNER NAME TYPE KEPT

---------- ------------------------------ -------------------- ----

SEC P_INSERT PROCEDURE YES

最后一列KEPT表明存储过程P_INSERT此时已被保存到Shared
Pool。

4.使用DBMS_SHARED_POOL包解除Shared Pool中保存的存储过程

我们这里使用UNKEEP方法可以解除Shared Pool中保存的存储过程。

sys@ora10g> exec dbms_shared_pool.unkeep('SEC.P_INSERT','P');

PL/SQL procedure successfully completed.

sys@ora10g> select owner,name,type,kept from v$db_object_cache where name='P_INSERT';

OWNER NAME TYPE KEPT

---------- ------------------------------ -------------------- ----

SEC P_INSERT PROCEDURE NO

解除成功。

原文地址：http://space.itpub.net/519536/viewspace-696189