請注意，不是所有的SQL語句都可以直接嵌入在PL/SQL塊中執行的。以重新整理Shared Pool命令“alter system flush shared_pool;”為例看一下報錯資訊及應對策略。

1.重新整理Shared Pool命令正常執行情況
sys@ora10g> alter system flush shared_pool;

System altered.

2.直接嵌入在PL/SQL塊中的報錯資訊
sys@ora10g> create or replace procedure sec_proc
2 is
3 begin
4     alter system flush shared_pool;
5 end;
6 /

Warning: Procedure created with compilation errors.

可見，此時出現了編譯錯誤。具體的報錯資訊如下：
sys@ora10g> show errors;
Errors for PROCEDURE SEC_PROC:

LINE/COL ERROR
-------- -----------------------------------------------------------------
4/4      PLS-00103: Encountered the symbol "ALTER" when expecting one of
         the following:
         begin case declare exit for goto if loop mod null pragma
         raise return select update while with
         <<
         close current delete fetch lock insert open rollback
         savepoint set sql execute commit forall merge pipe

這是PL/SQL本身的限制。因此不可簡單的將任何SQL語句直接嵌入在PL/SQL中使用。

3.解決方法
1）第一種解決方法：使用PL/SQL的EXECUTE IMMEDIATE語句處理
sys@ora10g> create or replace procedure sec_proc
2 is
3 begin
4     execute immediate 'alter system flush shared_pool';
5 end;
6 /

Procedure created.

sys@ora10g> exec sec_proc;

PL/SQL procedure successfully completed.

使用EXECUTE IMMEDIATE語句是最簡單的處理方法。這種方法非常的常用，推薦使用。

2）第二種解決方法：使用DBMS_SQL這個包輔助處理
sys@ora10g> CREATE OR REPLACE PROCEDURE sec_proc
2 IS
3     v_1      INTEGER;
4     v_2   INTEGER;
5 BEGIN
6     v_1 := DBMS_SQL.open_cursor;
7     DBMS_SQL.parse (v_1, 'alter system flush shared_pool', DBMS_SQL.native);
8     v_2 := DBMS_SQL.execute (v_1);
9     DBMS_SQL.close_cursor (v_1);
10 END;
11 /

Procedure created.

sys@ora10g> exec sec_proc;

PL/SQL procedure successfully completed.

OK，一樣可以成功執行。不過這種方法較之EXECUTE IMMEDIATE語句處理方法使用起來複雜一些，需要對語法順序多加留意。

4.小結
使用本文提供的兩種方法基本上可以解決很大一部分類似“alter system flush shared_pool;”命令執行不了的問題。可以根據自己的使用習慣進行取捨。

Good luck.

secooler
10.12.29

-- The End --

【PL/SQL】在PL/SQL中執行重新整理Shared Pool命令

相關文章