rpg as400程序員培訓(xùn)手冊(cè)

1、2.8.4.4ORONERR(OnErr)沒(méi)用過(guò)OPEN(E)(OpenFilefProcessing)打開(kāi)文件Facty1OperationFacty2ResultHILOEQOPEN文件名OPEN后面的目標(biāo)，必須是在當(dāng)前程序中已聲明的文件名（不是文件的記錄格式名），而且在OPEN操作之后，在程序結(jié)束之前之前，必須有對(duì)應(yīng)的CLOSE操作。使用OPEN操作，文件在聲明時(shí)，必須使用USROPN關(guān)鍵字（詳見(jiàn)D行說(shuō)明）。xx()邏輯判斷—或F

2、acty1OperationFacty2ResultHILOEQFLD01IFGTFLD03FLD01EQFLD02等價(jià)于IFFLD01FLD03FLD01=FLD02與IF、IFxx，、xx類似，RPGLE的寫(xiě)法，比RPG的寫(xiě)法xx要靈活，而且可以用來(lái)表達(dá)一些復(fù)雜的邏輯關(guān)系。有鑒于此，所以通常IF語(yǔ)句中，我會(huì)以為主，基本不用xx。如果在編程序方面，公司項(xiàng)目組無(wú)硬性要求，那我覺(jué)得還是少用xx吧，總覺(jué)得這種寫(xiě)法的邏輯關(guān)系看起來(lái)不直接，尤其

3、是有很復(fù)雜的時(shí)。OTHER(Otherwise)分支語(yǔ)句的判斷與分支語(yǔ)句一起使用，表示不符合上述所有條件時(shí)的操作，如下：Facty1OperationFacty2ResultHILOEQWHEN條件判斷1即WHEN與ELSEIF是類似的，這樣說(shuō)，應(yīng)該可以明白了吧?？傊狤NDSL是一個(gè)很好用的語(yǔ)法，尤其是在表示很多不同的分支處理時(shí)。OUT(E)(WriteaDataArea)沒(méi)用過(guò)，講數(shù)據(jù)域的。PARM(IdentifyParamet

4、ers)定義入口參數(shù)Facty1OperationFacty2ResultHILOEQRENTRYPLISTPARMFLD01關(guān)于具體內(nèi)容講解，詳見(jiàn)前面所說(shuō)“入口參數(shù)”一章。允許做為入口參數(shù)的有：普通變量、結(jié)構(gòu)變量、數(shù)組變量關(guān)于PARM、PLIST，還有一種在Facty1，F(xiàn)acty2也填寫(xiě)變量或指示器的用法，不過(guò)我不知道它具體表示什么意思，也不知道該怎么用。請(qǐng)用過(guò)的來(lái)補(bǔ)充。PLIST(IdentifyaParameterList)同上

5、POST(E)(Post)沒(méi)用過(guò)READ(N|E)(ReadaRecd)讀取記錄1.基本語(yǔ)法：Facty1OperationFacty2ResultHILOEQREAD文件記錄格式名4546READ后面跟的，必須是聲明的文件記錄格式名；LO指示器表示鎖表指示器，當(dāng)在指定的時(shí)間（CHGPF，WAITRCD項(xiàng)可看到），需要讀取的記錄仍被鎖，將會(huì)打開(kāi)LO指示器，即IN45=’1’；EQ指示器為是否讀到指示器。當(dāng)未讀到任何記錄時(shí)，打開(kāi)EQ指示器