如何使用RPGLE/SQL/CL删除AS400（IBMi）PF中的非打印控制字符？

针对外部上传到IBMi PF（EBCDIC CCSID 500）的文本，需要删除X'40'以下的非打印/控制字符（含空值、制表符、换行符等），以下是几种实用的实现方式：

一、RPGLE原生逐字符过滤 #

适合需要精细控制逻辑的场景，逐字符检查并保留符合要求的内容：

dcl-s inputStr    char(100) ccsid(500); // 匹配PF字段的CCSID
dcl-s outputStr   char(100) ccsid(500);
dcl-s idx         int(5);
dcl-s currentChar char(1);

// 模拟输入：'abc' + X'00' + '123' + X'1F'
inputStr = 'abc' + x'00' + '123' + x'1F';
outputStr = '';

// 遍历每个字符，只保留EBCDIC X'40'及以上的可打印字符
for idx = 1 to %len(%trimr(inputStr));
    currentChar = %subst(inputStr: idx: 1);
    if %charval(currentChar) >= x'40';
        outputStr = outputStr + currentChar;
    endif;
endfor;

dsply outputStr; // 输出结果：'abc123'

如果要处理PF中的批量记录，只需将inputStr替换为PF的目标字段，在循环读取PF记录的逻辑中加入上述过滤代码即可。

二、RPGLE + SQL 批量处理 #

利用SQL的字符串函数可以快速实现批量更新，效率更高：

1. 使用REGEXP_REPLACE（V7R1及以上版本支持） #

通过正则表达式匹配所有控制字符并删除：

// 批量更新PF字段
exec sql
    UPDATE YOUR_PF_NAME
    SET target_field = REGEXP_REPLACE(target_field, '[[:cntrl:]]', '')
    WHERE target_field IS NOT NULL;

[[:cntrl:]]会匹配所有ASCII/EBCDIC控制字符（包括X'00'-X'1F'、X'7F'等），直接替换为空字符串完成清理。

2. 使用TRANSLATE精确过滤X'40'以下字符 #

如果需要严格只删除X'40'以下的字符，可直接指定要移除的十六进制字符集：

exec sql
    UPDATE YOUR_PF_NAME
    SET target_field = TRANSLATE(target_field, '', X'000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F')
    WHERE target_field IS NOT NULL;

该方法兼容性更好，适合低版本IBMi环境。

三、CL语言辅助调用 #

CL本身不适合复杂字符串处理，但可以用来封装调用RPGLE清理程序的流程：

PGM
    // 覆盖PF文件（如果需要指定库）
    OVRDBF FILE(YOUR_PF_NAME) TOFILE(YOUR_LIB/YOUR_PF_NAME)
    // 调用RPGLE清理程序
    CALL PGM(YOUR_LIB/CLEAN_PF_PROC)
    // 删除文件覆盖
    DLTOVR FILE(YOUR_PF_NAME)
ENDPGM

注意事项 #

• 确保PF目标字段的CCSID设置为500，避免字符集转换导致的判断错误
• 处理变长字段时，建议用%trimr截断输入字符串的尾部空格，减少不必要的遍历
• 若IBMi版本低于V7R1，优先选择RPGLE原生方法或TRANSLATE函数方案

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