如何在AS400的RPGLE程序中默认选中单选按钮

实现步骤 #

要让DSPF里的单选按钮默认选中，只需要在RPGLE程序的初始化阶段，给对应字段WAREHOUSE赋予选项对应的数值即可：

• 若要默认选中W1，给WAREHOUSE赋值为1
• 若要默认选中W2，给WAREHOUSE赋值为2

示例RPGLE代码片段 #

// 定义与DSPF匹配的字段
dcl-s WAREHOUSE packed(2:0);

// 初始化默认选中项（这里设置默认选W1）
WAREHOUSE = 1;
// 若要默认选W2，替换为 WAREHOUSE = 2;

// 调用显示文件
EXFMT WAREHOUSE_SCRN;

关键注意点 #

• 确保RPGLE中WAREHOUSE的字段类型和DSPF定义一致（DSPF里是2Y 0，对应RPGLE的packed(2:0)或int(2)均可）
• 赋值操作必须在调用EXFMT或WRITE显示文件之前执行，这样屏幕加载时就能显示预设的选中状态

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