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

问题描述 投票：0回答：3

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

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

我们想要实现的是类似于 NAME_IN 内置表单的东西，其中有类似：

v_value := GetValue('v_variable');
的内容，并且会将 
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;

在第一个场景中，循环必须检查 

var1
是否有价值。如果我更改其他变量的 required_ind 值，它们也会被检查。

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

sql oracle-database dynamic plsql
3个回答
5
投票

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;
/

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

所以，是的，它很笨重，但是“这种避免的追求通常会导致[...]复杂化、卷积和全面不可维护的代码。”:)

以下是配置表的内容：

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

0
投票

哇，非常奇怪的设置（感谢链接 APC），但是既然您在配置表中定义/跟踪变量名称，为什么不让程序更新该表（或其他一些表）来告诉您变量是否“有一个价值”？ （假设您的意思是 null 或非 null）。 另外，不确定如何处理可以根据会话级别内容（或谁在执行过程、权限、位置等）更改值（或为空/非空）的局部变量。

0
投票

这与 APC 的 answer 本质上相同。我刚刚做了以下修改：

  • 使用默认参数值
  • 使用命名参数
  • 将空检查逻辑分离到专用程序中
create table syscfg (
  procname varchar2(30) not null,
  varname varchar2(30) not null,
  mandatory varchar2(1) not null
);

insert all
into syscfg values('DO_SOMETHING', 'P_1', 'Y')
into syscfg values('DO_SOMETHING', 'P_2', 'Y')
into syscfg values('DO_SOMETHING', 'P_3', 'N')
into syscfg values('DO_SOMETHING_TWO', 'P_1', 'Y')
into syscfg values('DO_SOMETHING_TWO', 'P_2', 'Y')
into syscfg values('DO_SOMETHING_TWO', 'P_3', 'N')
into syscfg values('DO_SOMETHING_TWO', 'P_4', 'N')
into syscfg values('DO_SOMETHING_TWO', 'P_5', 'N')
select 1 from dual;

col procname for a20
col varname for a5
col mandatory for a1
select * from syscfg;

/* Supports only up to 5 parameters. */
create or replace procedure is_missing_mandatory_args (
  p_procname in varchar2,
  p_1 in varchar2 default null,
  p_2 in varchar2 default null,
  p_3 in varchar2 default null,
  p_4 in varchar2 default null,
  p_5 in varchar2 default null
) as
  args constant sys.dbms_debug_vc2coll :=
    sys.dbms_debug_vc2coll(p_1, p_2, p_3, p_4, p_5);
begin
  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 = upper(p_procname)
             and s.mandatory = 'Y' 
             order by a.position
           )
  loop
    if args(r.position) is null then
      raise_application_error(-20000, upper(p_procname) || '.' || r.varname
                              ||' cannot be null');       
    end if;        
  end loop;
end;
/
show errors

create or replace procedure do_something (
  p_1 in varchar2 default null,
  p_2 in varchar2 default null,
  p_3 in varchar2 default null
) as
begin
  is_missing_mandatory_args('do_something', p_1, p_2, p_3);
  /* The real work takes place here. */
  dbms_output.put_line('do_something() executed successfully !');
end;
/
show errors

create or replace procedure do_something_two (
  p_1 in varchar2 default null,
  p_2 in varchar2 default null,
  p_3 in varchar2 default null,
  p_4 in varchar2 default null,
  p_5 in varchar2 default null
) as
begin
  is_missing_mandatory_args('do_something_two', p_1, p_2, p_3, p_4, p_5);
  /* The real work takes place here. */
  dbms_output.put_line('do_something_two() executed successfully !');
end;
/
show errors

SQL> exec do_something(p_1 => 'foo', p_2 => 'foo');
do_something() executed successfully !

PL/SQL procedure successfully completed.

SQL> exec do_something(p_2 => 'foo');
BEGIN do_something(p_2 => 'foo'); END;

*
ERROR at line 1:
ORA-20000: DO_SOMETHING.P_1 cannot be null
ORA-06512: at "JANI.IS_MISSING_MANDATORY_ARGS", line 23
ORA-06512: at "JANI.DO_SOMETHING", line 7
ORA-06512: at line 1


SQL> exec do_something(p_1 => 'foo');
BEGIN do_something(p_1 => 'foo'); END;

*
ERROR at line 1:
ORA-20000: DO_SOMETHING.P_2 cannot be null
ORA-06512: at "JANI.IS_MISSING_MANDATORY_ARGS", line 23
ORA-06512: at "JANI.DO_SOMETHING", line 7
ORA-06512: at line 1


SQL> exec do_something_two(p_2 => 'baz', p_1 => 'buz', p_5 => 'boz');
do_something_two() executed successfully !

PL/SQL procedure successfully completed.

SQL> exec do_something_two(p_1 => 'baz');
BEGIN do_something_two(p_1 => 'baz'); END;

*
ERROR at line 1:
ORA-20000: DO_SOMETHING_TWO.P_2 cannot be null
ORA-06512: at "JANI.IS_MISSING_MANDATORY_ARGS", line 23
ORA-06512: at "JANI.DO_SOMETHING_TWO", line 9
ORA-06512: at line 1


SQL>
最新问题
© www.soinside.com 2019 - 2024. All rights reserved.