[计算机]RPG AS400程序员培训手册.docVIP

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 FLD01FLD03 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 是一个很好用的 OUT {(E)} (Write a Data Area) 没用 PARM (Identify Parameters) 定 Factory 1 Operation Factory 2 Result HI LO EQR *ENTRY PLIST PARM FLD01 关于具体内容讲解，详见前面所说“入口参数”一章。 允 关于PARM、PLIST，Factory 1， Factory 2 也填写 法，不 PLIST (Identify a Parameter List) 同上 POST {(E)} (Post) 没用 READ {(N | E)} (Read a Record) 读取记录 1. 基本 Factory 1 Operation Factory 2 Result HI LO EQ READ 文件 45 46 READ后面跟的，必 LO 指示器表示的CHGPF，WAITRCD 需要LO 指示器，即*IN45=’1’； EQ指示器EQ 指示器，即*IN46=’1’ 2. 当文件在程序中，是用只READ 操作并不会造成 如果文件在程序中是用修改的方式声明，READ 操作成功后， 行解UNLOCK，或UPDATE），或READ 如果文件是用修改的方式声明，但希望READ 操作不READ（N）， 即 Factory 1 Operation Factory 2 Result HI LO EQ READ(N) 文件 45 46 这样读文件，就不会锁记录，但是同时也不能修改记录。如果需要修改记录，那么 在修改之前（包括 CHAIN、READ 理吧） 3. 当READ 操作 一条“数 据”中具体 4. 执行READ 操作PF 文件） READC {(E)} (Read Next Changed Record) 没用 READE {(N | E)} (Read Equal Key) 读取键值相等的记录 语法与READ 操作 假PFFHSL3（FHS01+FHS02） Factory 1 Operation Factory 2 Result HI LO EQ FHSKEY KLIST KFLD FLD01 KFLD FLD02 FHSKEY SETLL FMTFHS DOW 1=1 FHSKEY READE FMTFHS 15 IF *IN15=’1’ LEAVE ENDIF ENDDO