sql - 动态检查变量是否在 PL SQL 中具有值

Question

我需要做的是检查过程中的一系列变量是否具有值，但棘手的部分是我必须检查的变量列表在表中。让我进一步解释:

我们有一个表格，其中保存了所有变量名称和一个指示哪个变量不应为空的指标。这样我们就可以在该表中更改哪些字段是必需的，而无需更改代码。

我们想要实现的是类似于表单中内置的 NAME_IN 的东西，你有这样的东西:v_value := GetValue('v_variable');这将评估 v_variable 的值至 v_value .之后我会检查是否 v_value一片空白。这整个事情将在一个游标的 LOOP 中，该游标将获取我之前提到的表中标记为需要的所有变量。

到目前为止，我已经尝试使用 EXECUTE IMMEDIATE 来获取动态分配的变量值，但这不起作用，因为 EXECUTE IMMEDIATE 在它自己的范围内运行，因此它无法“看到”过程范围内的变量。

我尝试过的另一件事是 PL/SCOPE，它允许我通过提供名称来实际查看变量是否存在于我的范围内，但它没有获取确实存在的变量值的机制。

嗯，我希望任何人都可以帮助我。帮助将不胜感激。

下面是一个例子:

假设我得到了以下名为 tblConfig 的表，其中包含两列:variable_name 和 required_ind。

variable_name | required_ind
-----------------------------
var1          | Y
var2          | N
var3          | N

然后我会有一个名为 check_variables 的过程，如下所示:

PROCEDURE check_variables (
 var1 VARCHAR2,
 var2 VARCHAR2,
 var3 VARCHAR2)
IS
 CURSOR c_var_check IS
 SELECT variable_name
 FROM tblConfig
 WHERE required_ind = 'Y';
BEGIN
 FOR rec_var IN c_var_check LOOP
  ... check if rec_var.variable_name is the name of variable that has value ...
 END LOOP;
END;

在这个第一个场景中，循环必须检查是否 var1有值(value)。如果我更改了其他变量的 required_ind 值，它们也会被检查。

我读过那篇关于软编码的文章……这是一本很好的读物，不幸的是，在这种情况下，我不是作为开发人员做出的选择。这是必要的，因为具有所需配置的表由用户管理，而不是开发团队。

Answer 1

PL/SQL 没有太多的反射方式。肯定没有 NAME_IN 的等价物。我无法使用动态 SQL 解决此问题，但我找到了解决方案。

这是一个程序。它有三个程序。请注意，它们都是强制性的，但我们可以在参数的插槽中传递 NULL。这当然是我对这种“软编码”的反对意见之一:它混淆了 API。描述一个过程已经不足以知道它需要什么参数。

create or replace procedure do_something
    (p1 in varchar2
     , p2 in varchar2
     , p3 in varchar2)
is     
    args sys.dbms_debug_vc2coll;
begin
    args := new sys.dbms_debug_vc2coll(p1, p2, p3);

    for r in ( select s.varname, a.position
               from syscfg s
                    join user_arguments a 
                        on (s.procname = a.object_name
                            and s.varname = a.argument_name)
               where s.procname = 'DO_SOMETHING'
               and s.mandatory = 'Y' 
               order by a.position
               )
    loop
        if args(r.position) is null
        then
            raise_application_error(-20000, r.varname ||' cannot be null');       
        end if;        
    end loop;

    dbms_output.put_line('Procedure executed successfully!');
end;
/

“动态”参数检查通过按签名顺序使用参数填充集合来工作。我们通过将数据字典 View 与我们的配置表连接来获取配置参数的位置。然后我们使用位置作为数组的索引。请注意，该集合采用字符串。我将所有参数声明为 Varchars，但您可能需要转换日期或数字。

所以，是的，它很笨重，但是“ this quest of avoidance often leads towards [...] complication, convolution, and all-around unmaintainable code.”:)

这是配置表的内容:

SQL> select * from syscfg
  2  /

PROCNAME                       VARNAME                        M
------------------------------ ------------------------------ -
DO_SOMETHING                   P1                             Y
DO_SOMETHING                   P2                             Y
DO_SOMETHING                   P3                             N

SQL> 

所以，让我们滚吧!

SQL> set serveroutput on
SQL> exec do_something('A', 'Y', null)

Procedure executed successfully!

PL/SQL procedure successfully completed.

SQL> exec do_something('A', null, 'X')
BEGIN do_something('A', null, 'X'); END;

*
ERROR at line 1:
ORA-20000: P2 cannot be null
ORA-06512: at "APC.DO_SOMETHING", line 24
ORA-06512: at line 1

SQL> 

看起来不错，但要证明我没有袖手旁观......

SQL> update syscfg
set mandatory = 'N'
where varname = 'P2'
/
  2    3    4  
1 row updated.

SQL> select * from syscfg
  2  /

PROCNAME                       VARNAME                        M
------------------------------ ------------------------------ -
DO_SOMETHING                   P1                             Y
DO_SOMETHING                   P2                             N
DO_SOMETHING                   P3                             N

SQL> exec do_something('A', null, 'X')

Procedure executed successfully!

PL/SQL procedure successfully completed.

SQL> 

也许您的客户足够疯狂，认为这种超灵活性在其他地方会很方便。好消息是这个解决方案可以很容易地提取到一个独立的过程中，该过程将 PROCNAME 和数组作为参数。