【正文】 DIV {(H)} (Divide) 數(shù)學(xué)運(yùn)算—除DIV操作碼，表示數(shù)學(xué)運(yùn)算的“除”，常與操作碼MVR一起來使用。 DEDEALLOC {(E | N)} (Deallocate Storage) 沒用過，好象是對定義的指針型變量，對其分配地址空間之后，用這個操作碼可以回收空間。3. ILE程序中，COMMIT操作可隨時(shí)進(jìn)行，也允許在沒有聲明COMMIT類型的文件的情況下，仍進(jìn)行COMMIT操作（對該進(jìn)程這前的事務(wù)進(jìn)行確認(rèn)處理）f4. 關(guān)于日志的確認(rèn)操作，在后面會另設(shè)專門章節(jié)講述。 所謂文件的記錄格式名，包括了程序中聲明的磁盤文件、打印報(bào)表文件、屏幕文件 CLEAR操作的意思，就是將目標(biāo)所對應(yīng)的所有變量/字段都賦上空值。N表示的意思是：從變量FLD02的尾部，向前數(shù)第一個非空格字符，在FLD02中所處的位置。如果僅僅只是“FLD02”，那么就表示從變量FLD02的首位開始，向右查找2. 實(shí)例假設(shè)FLD01為8位長字符，且當(dāng)前值為’12345678’而FLD02為5位長字符，且當(dāng)前值為’A3456’那么執(zhí)行上述CHECK操作后，N=0， *IN42=’0’（從第二位開始，3456都存在于變量FLD01中）假設(shè)FLD01為8位長字符，且當(dāng)前值為’12345678’而FLD02為5位長字符，且當(dāng)前值為’34ABDC’那么執(zhí)行CHECK操作后，N=3，*IN42=’1’ (即第三位“A”，不存在于變量FLD01中)CHECKR {(E)} (Check Reverse) 反向檢查目標(biāo)變量中的字符1. 基本語法：Factory 1 Operation Factory 2 Result HI LO EQ FLD01 CHECKR FLD02:3 N 42語句CHECKR的意思，是指字段FLD02中，從第三位字符開始，向左查找(含第三位字符)，是否包含有FLD01中沒有的字符。所以，除非有絕對的把握，CHAIN操作肯定成功，否則就一定要養(yǎng)成填寫HI指示器的良好習(xí)慣。6. 當(dāng)一個邏輯文件，KEY值有多項(xiàng)時(shí)，可以使用KLIST操作碼先定義一個組合鍵值，然后再用這個組合鍵值來進(jìn)行CHAIN操作。*IN17=’1’, *IN18=’0’，表示無相應(yīng)的目標(biāo)記錄*IN17=’1’, *IN18=’1’， 表示查詢時(shí)，文件被鎖（不確定有沒有相應(yīng)的目標(biāo)記錄）2. 用修改方式聲明的文件，當(dāng)查詢成功后，目標(biāo)記錄被鎖定，其它程序無法以修改的方式定位到當(dāng)前目標(biāo)記錄上。7. EVAL操作碼的不足之處，在于只能進(jìn)行最簡單的拼接，無法自動將字符后面的空格去除，如：FLD01=’ABC ‘ （8位字符型），F(xiàn)LD02=’1’ （1位字符型），F(xiàn)LD03=’’ （8位字符型）在執(zhí)行語句 EVAL FLD03=FLD01+FLD02后， FLD03=’ABC ‘因?yàn)镕LD01是8位，F(xiàn)LD03也是8位，在操作時(shí)，不能去掉ABC后面的5位空格，此時(shí)后面再拼FLD02已無意義，所以FLD03仍是’ABC ‘CHAIN {(N | E)} (Random Retrieval from a File) 按鍵值對文件記錄進(jìn)行查詢定位1. 基本語法：舉例，對邏輯文件PFFHSL1進(jìn)行定位操作。當(dāng)是字符時(shí)，需要用單引號將字符括起來2. 其實(shí)根據(jù)RPG的語法，大家應(yīng)該也可以想得到，F(xiàn)actory1項(xiàng)如果不填值，就表示將Factory 2項(xiàng)的內(nèi)容直接拼在Result項(xiàng)上，這里就不舉例了。 上面這段語句，與下面這一段是等價(jià)的：Factory 1 Operation Factory 2 Result SELECT WHEN FLD01=’1’ EXSR SUB01 WHEN FLD01=’2’ EXSR SUB02 OTHER EXSR SUB03 ENDSL3. 可以看出來，CASxx這種語句，是用于邏輯判斷僅一個條件時(shí)的分支處理，這樣的寫法在代碼的閱讀上會很直觀。CALLB {(D | E)} (Call a Bound Procedure) 也沒用過，不過有不少人用，望舉例說明CALLP {(M | R | E)} (Call a Program or Procedure) 也沒用過，不過有不少人用，望舉例說明CASxx (Conditionally Invoke Subroutine) 帶條件的調(diào)用子過程1. 表示根據(jù)xx項(xiàng)對Factory 1與Factory 2進(jìn)行判斷，當(dāng)符合條件時(shí)，執(zhí)行Result處的子過程。詳細(xì)內(nèi)容可參考之前的“入口參數(shù)”一節(jié)。（也就是BEGSR語句與ENDSR語句之間沒有別的執(zhí)行語句了）BITOFF (Set Bits Off) 沒用過BITON (Set Bits On) 沒用過CABxx (Compare and Branch) 沒用過CALL {(E)} (Call a Program) 調(diào)用外部程序 Factory 1 Operation Factory 2 Result CALL ‘外部程序名’1. 如果是直接調(diào)用外部程序，那么程序名稱需要用單引號括起來，且該程序必須存在。否則程序編譯會報(bào)錯。處理內(nèi)容 ENDIF 可以看出，邏輯判斷的內(nèi)容，可以用括號括起來以區(qū)分先后順序； 判斷的語句，允許有空格：FLD1 FLD2，與FLD1FLD2是相同的 但AND前后，必須要有空格當(dāng)邏輯判斷條件太長，一行寫不下要分行寫時(shí)，AND在上一行，還是下一行，都沒有關(guān)系。不能用ZADD。可根據(jù)實(shí)際情況選擇使用ADD還是EVAL.ADDDUR {(E)} (Add Duration) 日期時(shí)間相加1. 對日期型變量進(jìn)行加操作，比如說已定義日期型變量MYDATE1，MYDATE2，將MYDATE1的日期加上3天，賦值到MYDATE2中： Factory 1 Operation Factory 2 Result MYDATE1 ADDDUR 3:*D MYDATE2其中，F(xiàn)actory 1，Result項(xiàng)，都必須為日期型變量（即在D行，Internal Data Type項(xiàng)為“D” ）2. 與ADD操作碼相同，F(xiàn)actory 1項(xiàng)為空時(shí)，表示直接在Result項(xiàng)上進(jìn)行日期相加，如將MYDATE1直接加上3個月(即結(jié)果也是賦值到MYDATE1中)： Factory 1 Operation Factory 2 Result ADDDUR 3:*M MYDATE13. 日期型變量的參數(shù)含義： *D表示天，也可用*DAYS *M表示月，也可用*MONTHS *Y表示年，也可用*YEARS4. 除了日期型之外，還有時(shí)間型，日期時(shí)間型，都可以使用ADDDUR操作碼.在D行，Internal Data Type定義為“T”，表示時(shí)間型（時(shí)、分、秒）Internal Data Type定義為“Z”，表示日期時(shí)間型（年、月、日、時(shí)、分、秒、微秒）在使用ADDDUR操作碼，時(shí)間型的參數(shù)如下：*H 表示小時(shí)，也可用*HOURS*MN表示分鐘，也可用*MINUTES*S 表示秒， 也可用*SECONDS而日期時(shí)間型，除了可以使用*Y、*M、*D、*H、*MN、*S（以及相應(yīng)的全稱）之外，還可以對微秒進(jìn)行處理，參數(shù)為*MS，或*MSECONDS5. Factory 2項(xiàng)中的數(shù)字，可以使用負(fù)數(shù)，使用負(fù)數(shù)時(shí)，表示減去相應(yīng)的年、月、日，不過通常我會使用SUBDUR這個操作碼來進(jìn)行日期的減法，語法與ADDDUR相同6. 既然說到這里，就順便說一下對于日期型變量（時(shí)間型，日期時(shí)間型也類似）的處理。4. 可以在ADD操作時(shí)，對Result項(xiàng)的變量進(jìn)行定義Factory 1 Operation Factory 2 Result FHS01 ADD FHS02 FHS03 10 2EVAL語句不能對在賦值的同時(shí)，對變量進(jìn)行定義。 ILE操作碼分類：1. 程序流程控制DO、DOU、DOUxx、DOW、DOWxx、ITER、LEVAEIF、ELSE、ELSEIF、IFxx、ORxx、ANDxxSELECT、WHEN、WHENxx、OTHER、ENDxx、GOTO、TAG 、EXSR、BEGSR、ENDSRCABxx2. 初始化操作CLEAR、RESET3. 文件操作OPEN、CLOSE、CHAIN、SETGT、SETLL、READ、READC、READE、READP、READPE、DELETE、UPDATE、WRITE 、UNLOCKROLBK、COMMIT、EXFMT、ACQ、EXCEPT、FEOD、FORCE、NEXT、POST、REL4. 程序調(diào)用CALL、CALLB、CALLP、PARM、PLIST、RETURN5. 賦值語句MOVE、MOVEA、MOVEL、EVAL6. 字符操作CAT、CHECK、CHECKR、SCAN、SUBST、XLATE7. 數(shù)字操作ADD、DIV（除）、MULT（乘）、MVR（除法取余）、SQRT（開方）、SUB、XFOOT、ZADD、ZSUB8. 數(shù)組操作符LOOKUP、MOVEA、SORTA、XFOOT9. 數(shù)據(jù)區(qū)操作(這個我也沒用過)IN、OUT、UNLOCK10. 日期操作ADDDUR、EXTRCT、SUBDUR、TEST11. 指示器操作SETOFF、SETON12. 信息操作（前兩個也沒用過）DUMP、SHTDN、TIME、DSPLY13. 內(nèi)存管理操作(完全沒用過)ALLOC、DEALLOC、REALLOC14. 位操作（這些我都沒用過）BITOFF、BITON、TESTB ILE操作碼 ACACQ {(E)} (Acquire) 取地址位。Decimal Positions： 與length相呼應(yīng)，當(dāng)此項(xiàng)有值時(shí)，表示定義的是一個數(shù)字型變量，該項(xiàng)表示小數(shù)位長度。如果指示器打開后，需要執(zhí)行多條語句，那么每條語句前面，該項(xiàng)都要賦值。 至于cycle，不知道是不是基于這個原因，現(xiàn)在用得也比較少了。這樣調(diào)整入口參數(shù)時(shí)，只要修改PF文件并重新編譯，再編譯相關(guān)程序即可（至少發(fā)生遺漏時(shí)，程序會報(bào)錯異常中斷，不會出現(xiàn)錯誤的數(shù)據(jù)而不自知） C行說明 寫在前面終于說到程序的執(zhí)行部分，也是我們寫程序的平時(shí)接觸的最多的一部分：“C”行了。于是，當(dāng)代碼執(zhí)行到與FLD02有關(guān)的操作碼時(shí)，才會報(bào)錯；如果FHS01ILE在運(yùn)行的過程中，因?yàn)檫壿嬇袛啵ㄈ鏘F條件判斷）的關(guān)系，而未執(zhí)行任何與FLD02有關(guān)的操作碼，那么程序會正常運(yùn)行完畢，不會有報(bào)錯。可以看到，參照外部文件定義結(jié)構(gòu)做為入口參數(shù)時(shí)，可以有效的節(jié)省代碼行，而且不會出現(xiàn)遺漏。入口參數(shù)的定義，可以寫在程序的任何一處，而程序的執(zhí)行，始終是從C行的順序第一行開始執(zhí)行，與入口參數(shù)所在的位置無關(guān)。假設(shè)有程序FHS01ILE，其中入口參數(shù)的定義如下：C *ENTRY PLIST C PARM FLD01 3C PARM FLD02 4其中：*ENTRY在“Factor 1”項(xiàng)；PLIST在“Operation”項(xiàng)；PARM在“Operation”項(xiàng)；FLD0FLD02都在“Result”項(xiàng)上述定義，表示這個程序通過兩個字段與其它外部程序溝通。如：D MYDS DSD MYFLD01 2D MYFLD02 2 在C行中，這兩句是等價(jià)的 C EVAL %SUBST(MYDS:3:2)=’01’ C EVAL MYFLD02=’01’ 第一句是直接改結(jié)構(gòu)變量MYDS的后兩位的值（當(dāng)然，此時(shí)MYFLD02的值也變化了） 第二句是對MYFLD02進(jìn)行賦值，同樣，賦完值之后，MYDS的后兩位也變?yōu)椤?1’在需要頻繁進(jìn)行數(shù)字與字符之間轉(zhuǎn)換時(shí)，偷懶的人會通過定義這樣的結(jié)構(gòu)來達(dá)到目的：D MYDS DSD MYFLD01 1 8D MYFLD02 1 8 0比如說，給MYFLD01賦值為’20070208’之后，MYFLD02也就自動等于20070208；然后給MYFLD02加1之后，MYFLD02等于20070209，MYFLD01的值也自動等于’20070209’。右對齊Internal Data Type： 定義變量的類型，允許的值有： 空：變量定義為字符型、壓縮型數(shù)字 A： 變量定義為字符型 B： 二進(jìn)制？不知道 D： 變量定義為日期型 F： 變量定義為浮點(diǎn)型？ G： 變量定義為圖型？（非英文？漢字？） I： 變量定義為帶符號的整數(shù) N： 變量定義為指示器變量？（沒用過） P： 變量定義為壓縮型數(shù)字 S： 變量定義為普通的數(shù)型 T： 變量定義為時(shí)間型 U： 變量定義為無符號的整數(shù) Z： 變量定義為日期+時(shí)間型（格式：） *： 變量定義為指針型 其實(shí)我最常用，就是不填，因?yàn)橐话愕某绦?，有字符和?shù)字這兩種類型變量，就足夠了。所不同的是，第一種定義方法，是指定了變量在結(jié)構(gòu)中的位置；而第二種方法，是直接指定變量的長