为IBM i的RPGLE程序创建SQL表函数是否可行及语法求助

1. 将RPGLE程序包装为TABLE函数是否合适？ #

完全合适。把返回结果集的RPGLE程序包装成SQL表函数后，你可以像操作普通数据库表一样对结果集执行关联、过滤、排序等SQL操作，同时也能通过ODBC/JDBC等标准接口调用，完美匹配你制作报表、批量查询产品价格的需求。

2. 包装为TABLE函数的语法步骤 #

步骤1：定义用户自定义表类型（UDTT） #

首先需要创建一个和RPGLE程序返回结果集结构完全匹配的表类型，字段的名称、数据类型、长度/精度必须一一对应。假设你的COINPRQ返回的结果集结构为(ITEM CHAR(6), PRICE DEC(8,2), LOCATION CHAR(3), UOM CHAR(2))，则执行：

CREATE TYPE F60OBJ.PRICE_RESULT_T AS TABLE (
    ITEM CHAR(6),
    PRICE DEC(8,2),
    LOCATION CHAR(3),
    UOM CHAR(2)
);

步骤2：创建SQL表函数调用RPGLE程序 #

基于上面定义的表类型，创建一个SQL函数关联到COINPRQ程序：

CREATE OR REPLACE FUNCTION F60OBJ.GET_ITEM_PRICE(
    P_PARM1 INT,
    P_PARM2 INT,
    P_ITEM CHAR(6),
    P_LOC CHAR(3),
    P_QTY INT,
    P_UOM CHAR(2),
    P_RESERV CHAR(1),
    P_WHSE CHAR(5)
)
RETURNS F60OBJ.PRICE_RESULT_T
LANGUAGE RPGLE
EXTERNAL NAME 'F60OBJ.COINPRQ'
PARAMETER STYLE SQL
FENCED
READS SQL DATA
RETURNS NULL ON NULL INPUT;

参数说明：

• EXTERNAL NAME：指定RPGLE程序的库和名称，必须和实际程序位置一致
• PARAMETER STYLE SQL：表示采用SQL标准参数传递方式，需确保RPGLE程序的参数定义符合该风格（若原程序是传统RPG参数风格，可改为PARAMETER STYLE GENERAL）
• READS SQL DATA：若程序仅读取数据则用此选项，若涉及数据修改则改为MODIFIES SQL DATA
• FENCED：IBM i上的安全隔离选项，多数场景下必填

步骤3：调用表函数 #

创建完成后，即可通过TABLE()函数语法调用，还能关联其他表：

-- 单条查询
SELECT *
FROM TABLE(F60OBJ.GET_ITEM_PRICE(1, 1, 'CHAI11', '258', 1, 'LB', '', 'MAIN')) AS PRICE_DATA;

-- 关联产品主表批量查询
SELECT IM.ITEM_DESC, PD.PRICE, PD.UOM
FROM F60OBJ.ITEM_MASTER IM
JOIN TABLE(F60OBJ.GET_ITEM_PRICE(1, 1, IM.ITEM_CODE, '258', 1, 'LB', '', 'MAIN')) PD
  ON IM.ITEM_CODE = PD.ITEM;

3. 若包装TABLE函数不合适的替代方案 #

如果因程序特殊依赖（比如需要复杂的环境变量、非标准参数传递）无法包装为表函数，可采用以下方案：

• 临时表中转：编写一个RPGLE或CL程序，循环调用COINPRQ并将结果插入临时表，之后直接查询临时表生成报表。注意需处理并发场景下的临时表隔离。
• SQL存储过程包装：创建SQL存储过程调用COINPRQ并返回结果集，虽然无法直接关联查询，但可通过ODBC调用存储过程获取结果后在应用层处理。

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