RPG嵌入式SQL批量删除指定记录及适配更新的技术问询

兄弟，你这个问题太典型了！嵌入式SQL里直接把多值字符串塞到IN子句里肯定不行——数据库会把整个PGNALIST当成单个完整的字符串去匹配，而不是拆成PGM1、PGM2这些独立的条件，所以只有单个值的时候碰巧能对上。下面给你几个靠谱的解决方案，既能搞定DELETE操作，也能轻松适配UPDATE，全程用嵌入式SQL：

方案1：动态拼接SQL语句 #

这是最直接的思路：把IN子句里的多个值直接拼到SQL字符串里，再通过动态SQL执行。

示例（DELETE操作） #

// 先拼接好完整的SQL语句（以类似RPG/COBOL的嵌入式SQL语法为例）
DECLARE SQL_STMT CHAR(500);
SET SQL_STMT = 'DELETE FROM FILE WHERE FILEPGNA IN (''PGM1'', ''PGM2'', ''PGM3'')';

// 执行动态SQL
EXEC SQL EXECUTE IMMEDIATE :SQL_STMT;

适配UPDATE操作 #

只需要把DELETE语句换成UPDATE即可：

SET SQL_STMT = 'UPDATE FILE SET STATUS = ''INACTIVE'' WHERE FILEPGNA IN (''PGM1'', ''PGM2'', ''PGM3'')';
EXEC SQL EXECUTE IMMEDIATE :SQL_STMT;

⚠️ 注意事项：如果这些程序名是来自用户输入的动态内容，一定要做严格的校验或转义，避免SQL注入风险！

方案2：参数化预编译语句（推荐，更安全） #

用预编译语句绑定多个参数，让数据库自动处理多值匹配，完全避免注入风险，还能复用执行计划提升性能。

固定数量参数示例 #

如果你能提前确定要处理的程序名数量，可以直接绑定对应个数的参数：

// 预编译DELETE语句，用?作为参数占位符
EXEC SQL PREPARE DEL_STMT FROM 'DELETE FROM FILE WHERE FILEPGNA IN (?, ?, ?)';

// 绑定变量并执行（假设你有PGM1、PGM2、PGM3三个变量存程序名）
EXEC SQL EXECUTE DEL_STMT USING :PGM1, :PGM2, :PGM3;

动态数量参数（数组绑定） #

如果程序名数量不固定，很多数据库（比如DB2、Oracle）支持数组类型参数，用数组来传递多值：

// 先定义数组类型（不同数据库语法略有差异，这里以DB2为例）
CREATE TYPE PG_NAME_ARRAY AS VARCHAR(10) ARRAY[100];

// 在嵌入式SQL中声明数组变量并赋值
DECLARE PG_NAMES PG_NAME_ARRAY;
SET PG_NAMES[1] = 'PGM1';
SET PG_NAMES[2] = 'PGM2';
SET PG_NAMES[3] = 'PGM3';

// 用UNNEST把数组拆成行，配合IN子句使用
EXEC SQL DELETE FROM FILE WHERE FILEPGNA IN (SELECT UNNEST(:PG_NAMES));

适配UPDATE操作 #

同样替换语句即可：

EXEC SQL PREPARE UPD_STMT FROM 'UPDATE FILE SET STATUS = ''INACTIVE'' WHERE FILEPGNA IN (?, ?, ?)';
EXEC SQL EXECUTE UPD_STMT USING :PGM1, :PGM2, :PGM3;

方案3：临时表批量处理（适合大量数据） #

如果要处理的程序名数量很多，用临时表中转是个高效的选择：

示例（DELETE操作） #

// 创建会话级临时表（不同数据库语法不同，比如DB2的GLOBAL TEMPORARY TABLE）
EXEC SQL DECLARE GLOBAL TEMPORARY TABLE TMP_PGNAMES 
    (PGNA VARCHAR(10)) NOT LOGGED;

// 把要删除的程序名插入临时表
EXEC SQL INSERT INTO SESSION.TMP_PGNAMES VALUES ('PGM1'), ('PGM2'), ('PGM3');

// 关联临时表执行删除
EXEC SQL DELETE FROM FILE 
    WHERE FILEPGNA IN (SELECT PGNA FROM SESSION.TMP_PGNAMES);

// 会话结束后临时表会自动销毁，也可以手动删除
EXEC SQL DROP TABLE SESSION.TMP_PGNAMES;

适配UPDATE操作 #

EXEC SQL UPDATE FILE 
    SET STATUS = ''INACTIVE''
    WHERE FILEPGNA IN (SELECT PGNA FROM SESSION.TMP_PGNAMES);

总结 #

• 如果是少量固定数量的值，动态SQL或固定参数预编译都能用；
• 追求安全性和灵活性，优先用数组绑定的预编译语句；
• 处理大量数据时，临时表的性能更优。

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