PL/SQL中能否将匿名块内的值传递至调用程序？

在PL/SQL中，完全可以将匿名块内生成的值传递给调用它的主程序，核心依赖PL/SQL的变量作用域规则：

• 外层（主程序）声明的变量，在所有内层嵌套的匿名块中默认可见，只要内层块没有重新声明同名变量，就可以直接访问或修改外层变量的值。
• 若内层块声明了与外层同名的变量，则内层的变量会成为局部变量，修改它不会影响外层的同名变量。

结合你的示例代码分析 #

你的主程序MY_PROCEDURE中声明了my_id NUMBER;，在IF v_tab(i).status = 'NEW'分支的匿名块里，仅声明了v_row my_table1%ROWTYPE;，并没有重新声明my_id，所以匿名块中调用someprocedure时，传递的my_id就是主程序的变量。当someprocedure执行完成后，my_id会被赋值为输出参数的结果，主程序后续的代码（循环内的其他步骤）可以直接使用这个更新后的值。

你的示例代码本身已经正确实现了值传递，以下是格式化后的完整代码：

PROCEDURE MY_PROCEDURE
    IS
        my_id NUMBER;
    BEGIN
        FOR i IN 1..v_tab.COUNT LOOP
            IF v_tab(i).status = 'NEW' THEN

                DECLARE
                    v_row  my_table1%ROWTYPE;             

                BEGIN
                   someprocedure(var1 => v_tab(i).field1,
                                 var2 => v_tab(i).status,
                                 id    => my_id  -- 输出参数，直接修改主程序的my_id
                                 );

                END;
            ELSE
                my_id := v_tab(i).id;
                -- 执行其他操作
            END IF;
            -- 此处可直接使用更新后的my_id
        END LOOP;

        -- 此处执行其他步骤  
END MY_PROCEDURE;

对应的v_tab定义：

TYPE v_record IS RECORD
(
   id NUMBER,
   field1 VARCHAR2(50),
   status VARCHAR2(10)
);

TYPE v_tab_type IS TABLE OF v_record;

v_tab  v_tab_type;

注意事项 #

如果在匿名块中不小心声明了同名变量（比如DECLARE my_id NUMBER;），那么这个my_id会成为匿名块的局部变量，此时修改它不会影响主程序的my_id，也就无法实现值传递，需要避免这种情况。

内容的提问来源于stack exchange，提问作者Coding Duchess