人力资源-2024RPG AS400程序员培训手册

2.8.4.4 O--R ON-ERROR (On-Error) 没用过 OPEN {(E)} (Open File for Processing) 打开文件 Factory 1 Operation Factory 2 Result HI LO EQ OPEN 文件名 OPEN 后面的目标，必须是在当前程序中已声明的文件名（不是文件的记录格式名）， 而且在 OPEN 操作之后，在程序结束之前之前，必须有对应的 CLOSE 操作。 使用 OPEN 操作，文件在声明时，必须使用 USROPN 关键字（详见 D 行说明）。 ORxx (Or) 逻辑推断—或 Factory 1 Operation Factory 2 Result HI LO EQ FLD01 IFGT FLD03 FLD01 OREQ FLD02 等价于 IF FLD01>FLD03 OR FLD01=FLD02 与 IF、IFxx，AND、ANDxx 类似，RPGLE 的写法 OR，比 RPG 的写法 ORxx 要灵活， 而且可以用来表达一些复杂的逻辑关系。有鉴于此，所以通常 IF 语句中，我会以 OR 为主， 基本不用 ORxx。假如在编程序方面，公司/项目组无硬性要求，那我觉得还是少用 ORxx 吧， 总觉得这种写法的逻辑关系看起来不直接，尤其是有很复杂的 AND,OR 时。 OTHER (Otherwise Select) 分支语句的推断 与分支语句 SELECT 一起使用，表示不符合上述所有条件时的操作，如下： Factory 1 Operation Factory 2 Result HI LO EQ SELECT WHEN 条件推断 1 处理语句 1 WHEN 条件推断 2 处理语句 2 OTHER 处理语句 3 ENDSL 在这个例子中，当满足条件推断 1 时，运行处理语句 1，运行结束后跳至 ENDSL 处； 假如不满足条件推断 1，则程序继续向下执行，推断是否满足条件推断 2。 当满足条件推断 2 时，运行处理语句 2，跳至 ENDSL；当不满足 当不满足条件推断 2 时，程序继续向下执下，当读到 OTHER 操作码时，无条件运 行处理语句 3（即当程序当前不满足以上所以条件推断时，则执行 OTHER 之后的语句。 处理语句允许有很多句； 条件推断可以写得很复杂，也允许对不同的字段进行推断；比如说 C 语言也有分支语 句 switch，但是这个语句只能对一个字段进行分支推断，ILE 语言与它不同，允许对不同的 字段进行推断 就我目前掌握的测试情况，上述的 SELECT—WHEN--OTHER—ENDSL，其实也可以 写做： IF 条件推断 1 处理语句 1 ELSEIF 条件推断 2 处理语句 2 ELSE 处理语句 3 ENDIF 即 WHEN 与 ELSEIF 是类似的，这样说，应该可以明白了吧。 总之，SELECT—ENDSL 是一个很好...