如何使用execute immedate执行本地过程？

Question

我有以下PL SQL块：

WHENEVER SQLERROR EXIT 1
SET SERVEROUTPUT ON

DECLARE
v_sql VARCHAR2(500);
f1 VARCHAR2(20) := 'abc';
p_procname VARCHAR2 (30) := 'OPENLOG';

   PROCEDURE OPENLOG (file_name IN VARCHAR2)
   IS
   BEGIN
      NULL;
   END;

BEGIN
DBMS_OUTPUT.PUT_LINE('Begin');
v_sql := 'BEGIN ' || p_procname || '(:a); END;';
EXECUTE IMMEDIATE v_sql USING IN f1;
END;
/

当我执行以上代码块时，出现错误：

DECLARE
*
ERROR at line 1:
ORA-06550: line 1, column 7:
PLS-00201: identifier 'OPENLOG' must be declared
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
ORA-06512: at line 19

但是，如果OPENLOG过程是html" target="_blank">程序包的一部分，则可以正常工作。

请告知如何使用动态SQL执行本地过程。

Answer 1

正如Amarillo所说，您不能动态执行本地定义的过程，因为动态部分将使用的SQL范围中不存在该过程。

您所描述的情况是，所有过程都在匿名块的DECLARE部分中定义，并且您正在运行一个查询，该查询告诉您要执行的过程-
大概还为您提供了要传递的参数。您可以只使用if/else构造或case语句来执行适当的过程，例如：

DECLARE
  ...
BEGIN
  FOR data IN (SELECT procname, arg1, arg2, ... from <your_query>) LOOP
    CASE data.procname
      WHEN 'OPENLOG' THEN
        openlog(data.arg1);
      WHEN 'WRITELOG' THEN
        writelog(data.arg1, data.arg2);
      WHEN ...
        ...
      ELSE
         -- handle/report an invalid procedure name
         -- or skip the `ELSE` and let CASE_NOT_FOUND be thrown
    END CASE;
  END LOOP;
END;
/

您只需要一个WHEN条件和每个过程的适当过程调用。您也可以ELSE捕获任何意外的过程名称，或者CASE_NOT_FOUND抛出异常（ORA-06592），这取决于发生这种情况时需要发生的情况。