V5R1兼容下JTOpen调用RPG返回超65535字节二进制数据的方法

所有方案均基于OS/400 V5R1原生支持的语法与特性，不依赖后续版本新增功能，完全适配你提出的AS400ByteArray传引用的实现思路。

问题根源 #

原有PI定义中的outInfo为固定长度65535字符的参数，系统在调用RPG程序时会在固定参数区为该参数分配65535长度的内存空间，无论客户端申请多大的缓冲区，RPG侧对该参数的写入都会被严格限制在该65535空间内。而通过%alloc在堆上申请的大尺寸内存，在向固定长度参数区拷贝时必然会触发长度超限、截断甚至内存越界问题。

基于AS400ByteArray传引用的兼容实现 #

这是你提到的技术方向的正确落地方式，RPG与Java侧需做如下适配：

RPG侧代码适配（完全兼容V5R1语法） #

调整PI参数定义，将原固定长度的outInfo替换为指针类参数，核心改动如下：

d PgmText         pi
d  p_outInfo                 *   value  // 接收Java侧传入的缓冲区首地址
d  p_bufLen                  10i 0 value  // 接收Java侧传入的缓冲区总长度
d  pgmName                      10    const
d  pgmLibrary                   10    const

// 定义基于传入指针的分段工作变量（单变量最大长度仍为65535，符合V5R1限制）
d basedBuf        s                  65535    based(p_outInfo)
d copySize        s             10i 0
d copyOffset      s             10i 0

核心处理逻辑：

• 完全保留原有%alloc申请堆内存的业务逻辑，不需要改动堆分配代码
• 计算实际可拷贝的总长度，通过copySize = %min(实际业务数据长度: p_bufLen)避免越界写入
• 通过循环逐段将%alloc申请的堆内存内容拷贝到Java侧传入的缓冲区空间，每段拷贝65535字节，过程中通过原生支持的指针算术同步调整源、目的地址偏移，直到全部内容写完，绕开单RPG变量65535的长度限制
• 注意：指针参数必须设置为*value值传递，若按引用传递会导致RPG拿到的是参数区的指针地址，无法定位到Java侧的实际内存块。

JTOpen侧代码适配 #

按照调整后的PI参数顺序构造调用参数，所有参数匹配V5R1的32位系统参数协议：

• 第一个参数：使用AS400ByteArray类型，提前在Java侧分配足够大的字节数组（大小根据业务需要设置，无65535上限），设置为PASS_BY_REFERENCE模式。该参数在系统参数列表中会自动携带数组首地址，与RPG侧的p_outInfo指针完全匹配
• 第二个参数：使用AS400Integer类型，值等于上述字节数组的总长度，设置为PASS_BY_VALUE模式，与RPG侧的p_bufLen参数匹配
• 第三、第四个参数：保持原有的pgmName、pgmLibrary10字节字符参数不变

兼容性说明 #

上述实现无V5R1版本不支持的特性：

• 指针值传递、基于指针的变量定义、%alloc堆分配、逐段内存拷贝、指针算术运算均为V3R2版本就已支持的原生RPG能力
• JTOpen对应的AS400ByteArray传引用、整数参数值传递功能自JTOpen V4R5版本就已提供，与V5R1的32位系统参数协议完全匹配，不存在位宽不兼容问题
• 方案绕开了固定参数区65535的长度限制：参数列表中仅传递4字节缓冲区地址，实际返回内容的写入发生在Java侧申请的缓冲区中，不受系统固定参数区的长度约束

备选无指针方案 #

如果不想引入指针参数改造，可采用分段返回的兼容方案：

• 保留原有65535长度的outInfo参数，增加两个入参：当前读取偏移、单次读取块长度
• 首次调用时将%alloc申请的大内容写入*TEMP临时库的数据库文件或者数据域
• 客户端多次调用RPG程序，每次按偏移位置读取65535长度的内容，直到全部业务内容读取完成
• 该方案兼容性更强，但需要多次跨系统调用，网络开销高于指针直传方案

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