人力资源RPG AS400程序员培训手册.docxVIP

2.8.4.4O--R

ON－ERROＲ（On-Ｅｒror)

没用过

ＯPEN｛(E）}（OpenFiｌｅｆorPrｏcessｉnｇ)打开文件

Ｆaｃｔory1OperatｉonＦactｏry2ResｕｌtHＩLOEＱ

OPEN文件名

OPEＮ背面的目标，必须是在当前程序中已声明的文件名(不是文件的记录格式名），

而且在OPＥN操作之后,在程序结束之前之前,必须有相应的CLOSE操作。

使用OPEN操作,文件在声明时，必须使用USＲOPN关键字(详见D行阐明）。

ORxx（Or)逻辑判断—或

Fａctoｒy1OperationFａcｔory２ResultHＩLＯEＱ

FLD０1IFGTFLＤ03

FLD0１OREQFLＤ02

等价于

IFFLD0１＞FLD03ＯＲＦLD0１＝ＦLD02

与IF、IFxx,ANＤ、AＮDxx类似,RPＧＬＥ的写法OR，比RPG的写法ＯRxx要灵活,

而且可以用来体现某些复杂的逻辑关系。有鉴于此，所以通常ＩF语句中,我会以OR为主,

基本不用ORxx。假如在编程序方面，公司／项目组无硬性规定,那我觉得还是少用ORｘx吧,

总觉得这种写法的逻辑关系看起来不直接，特别是有很复杂的ＡNＤ,OR时。

OTHER(OtherｗiseSelｅct)分支语句的判断

与分支语句SELECＴ一起使用，表达不符合上述全部条件时的操作,如下:

Fａctｏry1OｐeratｉonFａcｔory2ResｕlｔHＩLＯEQ

SELEＣT

WHEN条件判断1

解决语句１

WＨEN条件判断２

解决语句2

ＯTHEＲ

解决语句3

ENDＳL

在这个例子中,当满足条件判断1时,运营解决语句1，运营结束后跳至ENDSL处;

假如不满足条件判断1,则程序继续向下执行，判断是否满足条件判断2。

当满足条件判断2时，运营解决语句２,跳至ＥNDSL;当不满足

当不满足条件判断２时,程序继续向下执下,当读到OTHER操作码时，无条件运

行解决语句３(即当程序当前不满足以上所以条件判断时，则执行ＯTHＥR之后的语句。

解决语句允许有诸多句；

条件判断可以写得很复杂,也允许对不一样的字段进行判断；例如说C语言也有分支语

句swiｔch，但是这个语句只能对一个字段进行分支判断,ILE语言与它不一样,允许对不一样的

字段进行判断

就我现在掌握的测试情况，上述的SELＥCT—ＷHEN－-OTHER—ENDSL,其实也可以

写做:

IF条件判断１

解决语句１

EＬSEIF条件判断２

解决语句２

ＥLSE

解决语句3

ENDＩF

即WＨEN与ELSEIF是类似的，这么说，应该可以明白了吧。

总之,SELECT—ENDSL是一个很好用的语法,特别是在表达诸多不一样的分支解决时。

OUT{（E)}(ＷｒｉteaDaｔaＡreａ）

没用过，讲数据域的。

PＡRM(IdeｎtifｙPａｒaｍeters）定义入口参数

Factory１OｐｅraｔionFaｃtoｒy2ＲｅsｕｌtHIＬOEQR

＊EＮTRYPLISＴ

ＰARＭFLD01

关于具体内容讲解,详见前面所说“入口参数”一章。

允许做为入口参数的有:普通变量、结构变量、数组变量

关于PARM、PLIST,还有一个在Facｔoｒy1,Fａctｏry2也填写变量或指示器的用

法，但是我不知道它具体表达什么意思，也不知道该怎么用。请用过的来补充。

ＰLIＳT(ＩdｅntifyaParａmｅｔerＬiｓt)同上

POST{(Ｅ）}(Poｓｔ)

没用过

ＲEAD{(Ｎ|E)｝(ReaｄaRecoｒｄ)读取记录

1.基本语法:

Facｔory1ＯｐｅｒatiｏｎＦacｔory２ReｓuｌtHＩＬOEQ

ＲEAD文件记录格式名4546

RＥAD背面跟的,必须是声明的文件记录格式名;

LO指示器表达锁表指示器，当在指定的时间(CＨGPF，ＷＡＩTRCＤ项可看到），

需要读取的记录仍被锁，将会打开LO指示器，即*IN45=’1’；

EQ指示器为是否读到指示器。当未读到任何记录时，打开ＥQ指示器,即*IＮ４6＝’1’

2.当文件在程序中,是用只读的方式声明时，REＡD操作并不会导致锁表；

假如文件在程序中是用修改的方式声明,RＥＡＤ操作成功后，该记录被锁;直到执

行解锁操作(UＮＬOCK，或ＵPＤAＴE),或RＥAD该文件的其它