[20170726]11G 12c expand sql text 2.txt

[20170726]11G 12c expand sql text 2.txt

--//原來寫的指令碼只能分別在11g,12c單獨使用.上午花一點點時間.把兩者整合起來.
--//討論連結:http://www.itpub.net/thread-2088981-1-1.html
--//感謝solomon_007的指點,透過建立動態sql語句來實現.連結:http://blog.itpub.net/267265/viewspace-2141010/
--//qqjue給出建立建立類似c的宏來實現Conditional PL/SQL compilation,實際上這個也是我原來的想法.
--//重新寫一個看看.

SCOTT@book> @ &r/ver1
PORT_STRING                    VERSION        BANNER
------------------------------ -------------- --------------------------------------------------------------------------------
x86_64/Linux 2.4.xx            11.2.0.4.0     Oracle Database 11g Enterprise Edition Release 11.2.0.4.0 - 64bit Production

$ cat expand_sql_text2.sql
SET LONG 20000
SET SERVEROUTPUT ON

DECLARE
   L_sqltext   CLOB := NULL;
   l_result    CLOB := NULL;
BEGIN
   SELECT sql_fulltext
     INTO l_sqltext
     FROM v$sqlarea
    WHERE sql_id = '&&1';

   $IF DBMS_DB_VERSION.VER_LE_11_2
   $THEN
      dbms_sql2.expand_sql_text (l_sqltext, l_result);
   $ELSIF DBMS_DB_VERSION.VER_LE_12_1
   $THEN
      DBMS_UTILITY.expand_sql_text (l_sqltext, l_result);
   $ELSIF DBMS_DB_VERSION.VER_LE_12_2
   $THEN
      DBMS_UTILITY.expand_sql_text (l_sqltext, l_result);
   $END
   DBMS_OUTPUT.put_line (l_result);
END;
/
SET SERVEROUTPUT OFF

--//測試透過!!做一個記錄.