oracle - PL/SQL 以数据库对象存在为条件进行编译

Question

是否可以在 Oracle 中进行条件编译，条件是数据库对象(特别是表或 View 或同义词)的存在？我希望能够做这样的事情:

sp_some_procedure is
    $IF /*check if A exists.*/ then 
        /* read from and write to A as well as other A-related non-DML stuff...*/
    $ELSE /*A doesn't exist yet, so avoid compiler errors*/
        dbms_output.put_line('Reminder: ask DBA to create A!')
    $ENDIF
end;

Answer 1

是的。这是一个示例，其中第一个存储过程要从 XALL_TABLES 中进行选择，但如果此表不存在，则从双中选择。最后，因为我还没有 XALL_TABLES 对象，所以第一个存储过程从 dual 中选择。第二个，在 ALL_TABLES 对象上做同样的事情。因为 ALL_TABLES 存在，所以第二个存储过程从 all_tables 而不是从 DUAL 中进行选择。

在必须将包部署在所有数据库上并使用未部署在任何地方的表的情况下，这种构造非常有用……(好吧，也许存在概念上的问题，但确实发生了)。

--conditionals compilation instructions accept only static condition (just with constants)
--passing sql bind variable doesn't work 
--To pass a value to a conditional compilation instruction, I bypasses the use of input parameters of the script
--these 4 next lines affect a value to the first and the second input parameter of the script
--If your originally script use input script parameter, use the next free parameter ...
column param_1 new_value 1 noprint
select nvl(max(1), 0) param_1 from all_views where owner = 'SYS' and view_name = 'XALL_TABLES';
column param_2 new_value 2 noprint
select nvl(max(1), 0) param_2 from all_views where owner = 'SYS' and view_name = 'ALL_TABLES';

CREATE or replace PACKAGE my_pkg AS
  function test_xall_tables return varchar2;
  function test_all_tables return varchar2;
END my_pkg;
/

CREATE or replace PACKAGE BODY my_pkg AS

  function test_xall_tables return varchar2 is
    vch varchar2(50);
  begin
    $IF (&1 = 0) $THEN
      select 'VIEW XALL_TABLES D''ONT EXISTS' into vch from dual;
    $ELSE
      select max('VIEW XALL_TABLES EXISTS') into vch from XALL_TABLES;
    $END        
    return vch;      
  end test_xall_tables;

  function test_all_tables return varchar2 is
    vch varchar2(50);
  begin
    $IF (&2 = 0) $THEN
      select 'VIEW ALL_TABLES D''ONT EXISTS' into vch from dual;
    $ELSE
      select max('VIEW ALL_TABLES EXISTS') into vch from ALL_TABLES;
    $END
    return vch;
  end test_all_tables;             
END my_pkg;
/

考试 :

select my_pkg.test_xall_tables from dual;

给

查看 XALL_TABLES 不存在

select my_pkg.test_all_tables from dual;

给

查看 ALL_TABLES 个存在