|
SQL>
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>
SQL>
|