DB2中能否将动态查询结果批量存入数组？

一、动态查询结果批量存入数组的实现方法 #

在开启Oracle兼容性的DB2 11.5 LUW中，完全可以实现将动态查询结果批量存入数组，以下是两种实用方案：

方案1：EXECUTE IMMEDIATE直接批量加载到数组 #

先定义与查询结果匹配的数组类型，通过动态SQL一次性将结果集批量写入数组：

-- 定义标量类型（根据待统计列实际类型调整）
CREATE OR REPLACE TYPE VARCHAR100_T AS VARCHAR(100);
-- 定义数组类型
CREATE OR REPLACE TYPE VARCHAR100_ARR AS VARRAY(1000) OF VARCHAR100_T;

-- 存储过程示例
CREATE OR REPLACE PROCEDURE COLLECT_DISTINCT_VALS()
LANGUAGE SQL
BEGIN
    DECLARE v_col_name VARCHAR(128);
    DECLARE v_sql_stmt VARCHAR(1000);
    DECLARE v_distinct_vals VARCHAR100_ARR;
    -- 遍历待检查列的游标
    DECLARE cur_cols CURSOR FOR SELECT COLUMN_NAME FROM CHECK_COLUMNS;

    OPEN cur_cols;
    FETCH cur_cols INTO v_col_name;
    WHILE SQLCODE = 0 DO
        -- 构建动态查询语句
        SET v_sql_stmt = 'SELECT DISTINCT ' || v_col_name || ' FROM YOUR_SOURCE_TABLE';
        -- 执行动态SQL并将结果批量存入数组
        EXECUTE IMMEDIATE v_sql_stmt INTO v_distinct_vals;
        
        -- 遍历数组插入结果表
        FOR i IN 1..CARDINALITY(v_distinct_vals) DO
            INSERT INTO RESULT_TABLE(COLUMN_NAME, DISTINCT_VAL)
            VALUES(v_col_name, v_distinct_vals[i]);
        END FOR;

        FETCH cur_cols INTO v_col_name;
    END WHILE;
    CLOSE cur_cols;
END;

方案2：游标批量FETCH到数组（适合大结果集） #

如果需要分批处理大结果集，可通过游标结合FETCH ... LIMIT实现批量加载：

CREATE OR REPLACE PROCEDURE COLLECT_DISTINCT_VALS()
LANGUAGE SQL
BEGIN
    DECLARE v_col_name VARCHAR(128);
    DECLARE v_sql_stmt VARCHAR(1000);
    DECLARE v_distinct_vals VARCHAR100_ARR;
    DECLARE cur_distinct CURSOR WITH RETURN FOR DYNAMIC RESULT SETS 1;

    DECLARE cur_cols CURSOR FOR SELECT COLUMN_NAME FROM CHECK_COLUMNS;
    OPEN cur_cols;
    FETCH cur_cols INTO v_col_name;
    WHILE SQLCODE = 0 DO
        SET v_sql_stmt = 'SELECT DISTINCT ' || v_col_name || ' FROM YOUR_SOURCE_TABLE';
        -- 预编译并打开动态游标
        PREPARE stmt FROM v_sql_stmt;
        OPEN cur_distinct USING;
        
        -- 每次批量取100条到数组
        FETCH cur_distinct INTO v_distinct_vals LIMIT 100;
        WHILE SQLCODE = 0 DO
            -- 利用UNNEST批量插入结果表
            INSERT INTO RESULT_TABLE(COLUMN_NAME, DISTINCT_VAL)
            SELECT v_col_name, UNNEST(v_distinct_vals) FROM SYSIBM.SYSDUMMY1;
            
            FETCH cur_distinct INTO v_distinct_vals LIMIT 100;
        END WHILE;
        CLOSE cur_distinct;
        DEALLOCATE PREPARE stmt;

        FETCH cur_cols INTO v_col_name;
    END WHILE;
    CLOSE cur_cols;
END;

注：若待统计列类型多样，可统一转换为VARCHAR类型处理，或根据列类型动态生成对应数组类型。

二、DB2存储过程开发优质资料推荐 #

• DB2 11.5 LUW官方存储过程开发指南：重点关注「Oracle兼容性特性」章节，里面详细列出PL/SQL到DB2 SQL PL的语法映射，适配Oracle转DB2的开发者需求。
• IBM红皮书《DB2 11.5 for Linux, UNIX, and Windows: Stored Procedures, Triggers, and User-Defined Functions》：DB2存储过程开发的权威参考，覆盖基础语法、高级特性、性能优化等全场景内容。
• DB2 Oracle兼容性迁移指南：官方出品的迁移手册，专门针对Oracle PL/SQL到DB2的转换场景，快速定位替代写法。
• IBM Developer社区DB2专栏：包含大量实战教程、案例分析，比如动态SQL处理、数组操作等场景的落地实现，均为一线开发者经验总结。

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