全自由格式RPGLE被调用程序如何定义结构体入口参数（兼容旧调用）

现有调用程序Program1通过以下语句调用Program2：

CALL 'Program2'        
PARM           P1PARM  

其中P1PARM的结构体定义如下：

D P1PARM          DS           256      
D  P1ADFR                 1     15      
D  P1ADTO                16     30      
D  P1MSNR                31     37  0   
D  P1NSNR                38     44  0   
D  P1YEAR                45     48  0   
D  P1COMP                59     62      
D  P1FAC                 63     67      
D  P1PPSR                68     74  0   
D  P1PTNS                75     79      

旧版Program2通过*Entry PList接收该参数：

*Entry        PList                         
              Parm                    P1PARM

现需编写全自由格式的新版Program2，且不能修改调用程序，请求在PI（*entry）段定义该结构体的正确语法。

在全自由格式RPGLE中，要兼容原调用逻辑，需通过DCL-PI *ENTRY定义入口参数，严格匹配原数据结构的字节长度、字段类型与位置：

推荐实现方式（基于模板数据结构解析） #

先定义与原结构体完全匹配的模板，再通过BASED关键字直接映射到传入的参数内存：

// 定义入口参数：接收完整的256字节参数
DCL-PI *ENTRY;
    P1PARM CHAR(256);
END-PI;

// 定义与原结构一致的模板数据结构
DCL-DS P1PARM_TEMPLATE QUALIFIED;
    P1ADFR CHAR(15);       // 对应原位置1-15
    P1ADTO CHAR(15);       // 对应原位置16-30
    P1MSNR PACKED(7:0);    // 对应原位置31-37，0小数位
    P1NSNR PACKED(7:0);    // 对应原位置38-44，0小数位
    P1YEAR PACKED(4:0);    // 对应原位置45-48，0小数位
    FILLER CHAR(10);       // 填充原结构中49-58的空白位
    P1COMP CHAR(4);        // 对应原位置59-62
    P1FAC CHAR(5);         // 对应原位置63-67
    P1PPSR PACKED(7:0);    // 对应原位置68-74，0小数位
    P1PTNS CHAR(5);        // 对应原位置75-79
    FILLER CHAR(177);      // 填充剩余字节，确保总长度为256
END-DS;

// 映射入口参数到模板结构，无需额外复制
DCL-DS P1PARM LIKEDS(P1PARM_TEMPLATE) BASED(P1PARM);
END-DS;

替代实现方式（直接在PI中拆分字段） #

也可以直接在入口参数定义中拆分所有字段，同样要保证总长度与原结构一致：

DCL-PI *ENTRY;
    P1ADFR CHAR(15);
    P1ADTO CHAR(15);
    P1MSNR PACKED(7:0);
    P1NSNR PACKED(7:0);
    P1YEAR PACKED(4:0);
    FILLER CHAR(10);       // 填充49-58的空白
    P1COMP CHAR(4);
    P1FAC CHAR(5);
    P1PPSR PACKED(7:0);
    P1PTNS CHAR(5);
    FILLER CHAR(177);      // 填充剩余字节至256
END-PI;

核心注意事项 #

• 必须保证总字节数严格等于256，包括原结构中未定义字段的空白区域，需用FILLER占位
• 字段类型、长度要与原定义完全匹配：打包数（PACKED）的长度为原起止位置的差值+1，小数位保持0；字符型（CHAR）长度对应原字段的字符数
• 基于模板的方式更易维护，后续若原结构有调整，只需修改模板即可

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