如何从表中批量取参执行Oracle包内存储过程并排除指定参数

现有基础结构 #

已定义的包体结构：

CREATE OR REPLACE PACKAGE BODY my_package_body 
IS

PROCEDURE my_procedure (period IN VARCHAR2, country IN VARCHAR2)
IS

BEGIN
    ******************
    ******************
END;

END my_package_body;

原有调用方式为逐条手写EXEC命令，数千条执行效率极低：

EXEC my_package_body.my_procedure('201701', 'GERMANY')
EXEC my_package_body.my_procedure('201702', 'GERMANY')
EXEC my_package_body.my_procedure('201601', 'FRANCE')
EXEC my_package_body.my_procedure('201602', 'FRANCE')
...
(数千条待执行)

参数来源表period_and_country结构示例：

基础实现代码 #

直接通过PL/SQL匿名块遍历符合过滤条件的表记录，循环调用存储过程即可，所有自定义排除规则直接写在查询的WHERE条件中：

-- 客户端如果需要看执行日志，先执行这行：SET SERVEROUTPUT ON;
BEGIN
  FOR exec_rec IN (
    SELECT country, period
    FROM period_and_country
    -- 👇 这里写所有自定义过滤/排除规则
    WHERE country <> 'SPAIN' -- 示例：排除所有西班牙的记录
    -- 可追加任意其他规则，例如：
    -- AND period >= '201601'
    -- AND country NOT IN ('PORTUGAL','ITALY')
  ) LOOP
    -- 调用存储过程，用命名参数传参避免顺序写错
    my_package_body.my_procedure(
      period  => exec_rec.period,
      country => exec_rec.country
    );
    -- 可选：输出执行进度
    DBMS_OUTPUT.PUT_LINE('执行完成：country='||exec_rec.country||', period='||exec_rec.period);
  END LOOP;
  -- 如果存储过程内部没有提交逻辑，最后统一提交
  COMMIT;
END;
/

增强版（带异常捕获，避免单条失败导致全部回滚） #

如果数据量较大，担心单条记录执行出错中断整体任务，可以加异常捕获，把失败记录存入日志表后续排查：

1. 先执行一次创建错误日志表：

CREATE TABLE proc_exec_error_log (
  exec_time DATE DEFAULT SYSDATE,
  country   VARCHAR2(100),
  period    VARCHAR2(20),
  error_msg VARCHAR2(4000)
);

2. 带异常处理的执行块：

BEGIN
  FOR exec_rec IN (
    SELECT country, period
    FROM period_and_country
    WHERE country <> 'SPAIN' -- 自定义过滤规则
  ) LOOP
    BEGIN
      my_package_body.my_procedure(
        period  => exec_rec.period,
        country => exec_rec.country
      );
    EXCEPTION
      WHEN OTHERS THEN
        -- 记录错误信息，继续执行下一条
        INSERT INTO proc_exec_error_log(country, period, error_msg)
        VALUES (exec_rec.country, exec_rec.period, SQLERRM);
    END;
  END LOOP;
  COMMIT;
END;
/

注意事项 #

• 推荐使用命名参数绑定的写法传参（即参数名 => 变量值的形式），比按位置传参更安全，避免参数顺序错位导致业务错误
• 所有筛选、排除规则只需要修改游标查询的WHERE子句即可，不需要调整循环内的调用逻辑
• 执行完成后可以查询proc_exec_error_log表排查执行失败的记录，针对性处理

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