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

Question

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

我们有一个表,我们保留所有变量名称和一个变量不应为null的指示符.这样我们就可以在该表中更改哪些字段是必需的而无需更改代码.

我们要实现什么是类似于内置的形式,在那里你有类似的东西NAME_IN:v_value := GetValue('v_variable');这将assing的价值v_variable来v_value.然后我会检查是否v_value为空.整个事情将在一个游标的循环中,它将获得我前面提到的表中标记为必需的所有变量.

到目前为止,我已尝试使用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;

在这个fisrt场景中,循环必须检查是否var1有值.如果我更改了其他变量的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;
/

"动态"参数检查通过使用签名顺序中的参数填充集合来工作.我们通过将数据字典视图与配置表连接来获取已配置参数的位置.然后我们使用position作为数组的索引.请注意,该集合采用字符串.我将所有参数声明为Varchars,但您可能需要投射日期或数字.

所以,是的,它很笨重,但" 这种避免的追求往往导致复杂性,卷积和全面无法维护的代码. ":)

以下是配置表的内容:

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和数组作为参数.