子文件CRUD操作无效选项逻辑异常问题排查

异常原因分析 #

1. 循环未终止导致批量更新
   输入无效选项进入Other分支后，代码注释掉了Leavesr，程序会继续执行循环末尾的Update DSPSFL和Readc DSPSFL，直到遍历完所有子文件记录。而Update DSPSFL未指定仅更新当前记录，直接触发所有子文件行的属性更新，导致全字段反显。
2. 全局属性未限定范围
   Other分支中直接设置White=*off、Red=*On，这些颜色属性是全局生效的，没有绑定到当前输入错误的那条记录上，一旦执行Update就会把红色反显应用到所有子文件行。
3. 缺少精准更新控制
   注释掉了SflNxtChg = *On和针对当前记录的Update DSPSFL，无法限定仅修改错误记录的显示状态，反而让全局修改覆盖了所有行。

解决办法 #

1. 终止循环，仅处理当前错误记录 #

恢复Other分支中的Leavesr，处理完无效选项后立即跳出循环，避免批量更新所有子文件记录。

2. 精准更新错误记录的显示属性 #

启用SflNxtChg = *On和当前记录的Update DSPSFL，确保只修改输入无效选项的那条记录的颜色和反显状态。

3. 重置属性避免后续影响 #

在处理完无效选项后，重置颜色属性为默认值，防止后续正常操作的记录显示异常。

修改后的关键代码片段 #

Other        ;
    Ind_s1Opt=*On         ;
    SflNxtChg  = *On     ;
    White=*off            ;
    Red=*On               ;
    DMSG = 'Option is Invalid' ;
    Update DSPSFL         ;
    // 重置属性为默认（假设默认是白色）
    White=*On             ;
    Red=*Off              ;
    Leavesr               ;
Endsl                       ;

另外，建议移除循环末尾无差别的Update DSPSFL，只在需要更新记录属性的分支中执行针对性更新，避免不必要的全局修改。

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