如何在Display File下方显示Subfile并保持双激活？解决数据读取异常

问题描述 #

我有一个包含Identifier字段的显示文件记录，程序会基于该字段的值加载并展示对应的子文件记录。现在需要实现：用户输入新的Identifier后，程序能加载并展示与新值关联的额外子文件记录。但遇到一个问题：当子文件处于激活状态时，程序无法读取其上方显示文件中Identifier字段的更新值——比如在显示子文件后修改Identifier，程序获取不到这个新的修改内容。

解决思路与步骤 #

1. 检查显示文件字段属性 #

• 确保Identifier字段的CHANGE属性设置为(*YES)，这样字段值修改后系统会标记为已更改，程序可读取新值。
• 避免给该字段设置(*NOCAP)等会阻止更新识别的属性。

2. 调整子文件激活逻辑 #

当用户修改Identifier并触发操作（如按功能键）时，按以下流程处理：

• 先关闭子文件，释放对显示区域的占用；
• 读取更新后的Identifier字段值；
• 清空原有子文件数据，根据新值重新加载记录；
• 重新激活并显示子文件。

示例RPGLE代码片段：

// 假设F5键用于触发子文件刷新
IF *IN05;
    // 关闭子文件控制指示器
    SETOFF *INSL;
    WRITE SFLCTL; // 写入子文件控制记录以关闭显示
    
    // 读取显示文件中更新后的Identifier字段
    READ DSPF_MAIN; // DSPF_MAIN是包含Identifier的主记录格式
    
    // 清空子文件并重新加载数据
    CLEAR SFL_REC;
    EXSR LOAD_SUBFILE_DATA; // 自定义子文件加载子程序
    
    // 重新激活子文件
    SETON *INSL;
    WRITE SFLCTL;
ENDIF;

3. 利用显示文件控制记录 #

在显示文件中配置子文件控制记录（SFLCTL），通过指示器控制子文件的显示/隐藏。读取上方字段前先隐藏子文件，读取完成后再重新显示，确保程序能正确捕获字段更新。

4. 明确操作触发方式 #

要求用户修改Identifier后，通过按下Enter键或功能键触发程序处理逻辑——IBM i显示文件不会自动检测字段修改并触发读取，必须通过用户交互事件触发程序对字段的读取操作。

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