基于OPNQRYF按字段子串排序报表记录及RUNSQL临时表方案咨询

你的方案完全可行且合理，同时还有更轻量的替代方案可以参考！ #

首先，先肯定你的思路：用RUNSQL在QTEMP创建和原表结构一致的临时表，通过SUBSTR函数实现子串排序，再让RPG程序指向这个临时表，这个方案是完全站得住脚的，理由如下：

• 隔离性好：QTEMP是会话专属的临时库，不会影响其他用户的操作，也不用担心遗留数据
• 逻辑直观：SQL的字符串处理函数（比如SUBSTR）比OPNQRYF的映射更灵活，复杂子串排序写起来更省心
• 改动成本低：只要临时表结构和原表完全匹配，RPG程序几乎不用修改，通过OVRDBF就能直接切换数据源

不过用这个方案的时候有几个小细节要注意：

• 建表时尽量用CREATE TABLE QTEMP/MOHDL35 LIKE LIBL/MOHDL35来复制原表结构，避免手动定义字段出错，包括记录格式名也要保持一致
• 如果原表数据量很大，要考虑排序和插入的性能，不过IBM i的SQL优化器通常能处理得不错，必要时可以给排序字段加临时索引
• QTEMP的表会在会话结束后自动清除，不用额外做清理工作

更轻量的替代方案：直接用OPNQRYF实现子串排序 #

其实你不需要新建临时表，直接在现有的OPNQRYF逻辑里扩展就能实现子串排序，步骤更简单，还能避免数据复制的开销：

1. 在MAPFLD参数里新增一个映射字段，用来提取你需要排序的子串，比如你要按HDAEDT的第2到5位排序：

   MAPFLD((ZONEDT HDAEDT *ZONED 8 0) +
          (CHARDT ZONEDT *CHAR 8) +
          (SORT_SUBSTR SUBSTR(HDAEDT, 2, 4) *CHAR 4))
   

2. 把KEYFLD(*FILE)改成KEYFLD(SORT_SUBSTR)，如果需要多字段排序，还可以追加其他键字段，比如KEYFLD(SORT_SUBSTR CHARDT)

这样OPNQRYF就会直接按你定义的子串字段排序，不需要额外创建临时表，代码改动更小，性能也更优，适合单次报表打印的场景。

方案选择建议 #

• 如果你的排序逻辑非常复杂（比如多个子串组合、带条件的排序），或者后续需要多次复用这个排序后的数据集，那临时表方案更合适
• 如果只是单次报表打印，排序逻辑简单，直接用OPNQRYF扩展映射字段的方案更高效

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