1 SQL> CREATE OR REPLACE FUNCTION F_TESTDEBUG 2 RETURN NUMBER IS 3 v_count number; 4 BEGIN 5 select count(*) into v_count from user_tables; 6 7 $IF $$my_debug $THEN 8 DBMS_OUTPUT.PUT_LINE('Tables number is: ' || v_count); 9 $END 10 11 return v_count; 12 END; 13 / Function created
SQL> ALTER FUNCTION F_TESTDEBUG COMPILE PLSQL_CCFLAGS = 'my_debug:TRUE' REUSE SETTINGS; Function altered
SQL> set serveroutput on 1 SQL> declare 2 v_res number; 3 begin 4 v_res := F_TESTDEBUG; 5 end; 6 / Tables number is: 22 PL/SQL procedure successfully completed
SQL> ALTER FUNCTION F_TESTDEBUG COMPILE PLSQL_CCFLAGS = 'my_debug:FALSE' REUSE SETTINGS; Function altered
1 SQL> declare 2 v_res number; 3 begin 4 v_res := F_TESTDEBUG; 5 end; 6 / PL/SQL procedure successfully completed
责任编辑:虫虫