Mega Code Archive

 

Categories / Oracle PLSQL Tutorial / System Packages

 

View the post-processed source

SQL> SQL> SET SERVEROUTPUT ON PAGES 9999 SQL> SQL> CREATE OR REPLACE PROCEDURE compile_by_version   2  IS   3   4  BEGIN   5     $IF DBMS_DB_VERSION.VER_LE_10_2   6     $THEN   7        DBMS_OUTPUT.PUT_LINE('10.2 and under');   8     $ELSIF DBMS_DB_VERSION.VER_LE_10_1   9     $THEN  10        DBMS_OUTPUT.PUT_LINE('10.1 and under');  11     $ELSE  12        DBMS_OUTPUT.PUT_LINE('Not 10g');  13     $END  14  15  END;  16  / Procedure created. SQL> SQL> BEGIN   2     DBMS_PREPROCESSOR.PRINT_POST_PROCESSED_SOURCE (   3        'PROCEDURE',   4        'PLSQL',   5        'COMPILE_BY_VERSION');   6  END;   7  / BEGIN SQL>