Oracle PL/SQL：古いバージョンのテーブルには条件付きで列を使用する方法

Question

テーブルに対してSELECTクエリを実行しようとする簡単な匿名プロシージャを作成しようとしています。問題はこのテーブルの古いバージョンにあり、存在しないカラムはほとんどなく、これらの新しいカラムは新しいバージョンのテーブル構造に導入されました。

私はこの新しい列が存在するかどうかを確認しており、唯一の列が存在する場合は条件付きでSELECTクエリを使用しています。しかし、スタティックコンパイルが原因であると思われます。

PL/SQL: ORA-00904: "ERRORTYPE": invalid identifier 

どうすれば対処できますか？以下はサンプル手順です

SET SERVEROUTPUT ON; 
DECLARE 
    errorType_column_exists number := 0; 
BEGIN 
    SELECT COUNT(*) INTO errorType_column_exists 
    FROM ALL_TAB_COLS 
    WHERE owner = 'DEV' 
    AND table_name = 'Table1' 
    AND column_name = 'ERRORTYPE'; 
    IF (errorType_column_exists = 1) THEN 
     FOR r_row IN (SELECT ErrorMsg 
       FROM DEV.Table1 
       WHERE (ErrorType != 'Missing' OR ErrorType IS NULL) 
       AND ROWNUM <= 100) 
    LOOP 
     DBMS_OUTPUT.PUT_LINE(r_row.ErrorMsg); 
     END LOOP; 
    END IF; 
END; 
/

Answer 1

実行する前にコードをコンパイルする必要があります。ループ内のコードは、TABLE1にerror_typeという列があるスキーマでのみコンパイルされます。

スキーマのすべてのバージョンに対してコンパイルする匿名ブロックを作成する唯一の方法は、動的SQLを使用することです。

SET SERVEROUTPUT ON; 
DECLARE 
    errorType_column_exists number := 0; 
    Lnt sys.dbms_debug_vc2coll; 
    BEGIN 
     SELECT COUNT(*) INTO errorType_column_exists 
    FROM ALL_TAB_COLS 
    WHERE owner = 'DEV' 
    AND table_name = 'Table1' 
    AND column_name = 'ERRORTYPE'; 
    IF (errorType_column_exists = 1) 
    THEN 
      execute Immediate 'SELECT ErrorMsg FROM DEV.Table1 WHERE (ErrorType != ''Missing'' OR ErrorType IS NULL) AND ROWNUM <= 100' 
      bulk collect into lnt; 
      for idx in 1..lnt.count() 
      LOOP 
       DBMS_OUTPUT.PUT_LINE(lnt(idx)); 
    END LOOP; 
    END IF; 
END; 
/

Answer 2

これを行うには、公式のOracleの方法は、条件付きコンパイルを使用することです：だからあなたはあなたが扱っているスキーマのバージョンに応じてPL/SQLコンパイラフラグを設定する必要があります

alter session set PLSQL_CCFlags = 'schema_version:2' 

DECLARE 
    errorType_column_exists number := 0; 
BEGIN 

    FOR r_row IN (SELECT ErrorMsg 
      FROM DEV.Table1 
      $if $$schema_version >= 2 $then 
      WHERE (ErrorType != 'Missing' OR ErrorType IS NULL) 
      $else 
      WHERE 1=1 
      $end 
      AND ROWNUM <= 100) 
    LOOP 
     DBMS_OUTPUT.PUT_LINE(r_row.ErrorMsg); 
    END LOOP; 
END; 

を。