动态存储过程

我从A表中查出的存储过程名称是D。从B表中查出D存储过程的参数是E，F。我在C存储过程中要实现，调用D，并且传参E，F。

 

create or replace procedure D (outProcedureNm  out varchar ) is 
  begin
    select
      A.ProcedureNm
    from
      a
    into
      outProcedureNm  ; 
        exception
    when the others
      null;
  end;

create or replace procedure C  is
  varE varchar(10) ;
  varF varchar(10) ;
  varProcedureNm varchar(100);

  var varSql varchar2(1000);
  begin
    select
    B.E,B.F
    from B
    into inVarE ,inVarF;
    --call D
    D(varProcedureNm);

    varSql := 'begin ' || varProcedureNm|| ' (:v1,:v2); end;'; 

    execute immediate varSql  using in inVarE ,in inVarF;
  exception
    when the others
      null;

  end;