【正文】 位長(zhǎng)字符，且當(dāng)前值為’23A56’那么執(zhí)行上述CHECK操作后，N=0， *IN42=’0’（從第三位開始，向左，23都存在于變量FLD01中）假設(shè)FLD01為8位長(zhǎng)字符，且當(dāng)前值為’12345678’而FLD02為5位長(zhǎng)字符，且當(dāng)前值為’BC3B45’那么執(zhí)行CHECK操作后，N=2，*IN42=’1’ (即第二位“C”，不存在于變量FLD01中) 3. 計(jì)算字符實(shí)際長(zhǎng)段根據(jù)CHECKR的這個(gè)操作碼的用法，我們可以使用它來(lái)取出變量截去尾部空格后的實(shí)際長(zhǎng)度：Factory 1 Operation Factory 2 Result HI LO EQ ‘ ‘ CHECKR FLD02 N 42 Factory 1項(xiàng)，是一個(gè)空格字符。不能關(guān)閉未打開的文件5. 允許使用*ALL變量，來(lái)表達(dá)關(guān)閉所有已打開的文件：CLOSE *ALLCOMMIT {(E)} (Commit) 日志事務(wù)處理的確認(rèn)操作1. 基本語(yǔ)法Factory 1 Operation Factory 2 Result COMMIT2. 該操作碼無(wú)其它參數(shù)，就是指對(duì)事務(wù)處理進(jìn)行確認(rèn)操作。 當(dāng)文件定位到目標(biāo)記錄時(shí)，目標(biāo)記錄會(huì)被鎖定，此時(shí)，目標(biāo)記錄無(wú)法被其它程序修改；如果執(zhí)行了DELETE操作，自然會(huì)解鎖，不過別的程序也找不到目標(biāo)記錄了（因?yàn)楸粍h除）實(shí)際使用中，通常并不會(huì)對(duì)文件中的記錄進(jìn)行物理刪除，而是修改某個(gè)標(biāo)識(shí)狀態(tài)的字段的值，所以使用這條命令要慎重。DEFINE (Field Definition) 根據(jù)已知的字段，來(lái)定義新字段，如下：Factory 1 Operation Factory 2 Result HI LO EQ *LIKE DEFINE FLD01 FLD02 這句話的意思，就是說(shuō)“象定義字段FLD01一樣，定義字段FLD02的類型、長(zhǎng)度” 這個(gè)字段FLD01，必須是個(gè)已定義的字段/變量。2. 對(duì)結(jié)構(gòu)體的清空關(guān)于結(jié)構(gòu)體，后面會(huì)另設(shè)章節(jié)專門講述，這里只說(shuō)明對(duì)結(jié)構(gòu)體初始化清空Factory 1 Operation Factory 2 Result CLEAR *ALL 目標(biāo)名CLOSE {(E)} (Close Files) 關(guān)閉文件 1. 基本語(yǔ)法Factory 1 Operation Factory 2 Result CLOSE 目標(biāo)文件名2. CLOSE所對(duì)應(yīng)的，是文件名，不是文件的記錄格式名，要注意3. CLOSE操作碼，僅適用于聲明文件時(shí)，keyword使用“USROPN”關(guān)鍵字的文件4. 每一個(gè)CLOSE的操作，在之前都必須有OPEN文件的操作。（基本與CHECK類似，所不同的，就是CHECK是自左向右的查找；而CHECKR是自右向左查找）如果有，將字符所在位置賦值到變量N中，同時(shí)打開EQ指示器；如果從第二位字開始，向左讀取的所有字符，都可以在變量FLD01中找到，那么N為0，EQ指示器處于關(guān)閉狀態(tài)。需要注意，組合鍵值中，必須每一個(gè)成員字段都與目標(biāo)記錄所對(duì)應(yīng)的字段相等，才能查詢成功。邏輯文件PFFHSL1，是以FHS01為鍵值，文件記錄格式名叫FMTFHSFactory 1 Operation Factory 2 Result HI LO EQ FHS01 CHAIN FMTFHS 17 18 這個(gè)例子中，F(xiàn)HS01應(yīng)該是一個(gè)與文件PFFHSL1中鍵值（FLD01）類型、長(zhǎng)度都相等的一個(gè)字符型變量，或者字符。而當(dāng)邏輯判斷大于一個(gè)條件時(shí)，這個(gè)語(yǔ)句就不適用了。4. 這一點(diǎn)要注意：雖然400的程序段代碼中，是不區(qū)分大小寫；但調(diào)用的程序名，要區(qū)分大寫小。所以這里建議，如果是自已從頭到尾寫一個(gè)程序，最好寫了BEGSR語(yǔ)句后，馬上寫一個(gè)ENDSR，然后再來(lái)寫中間的內(nèi)容，避免遺漏。ALLOC {(E)} (Allocate Storage) 好象是給指針型變量分配空間的，沒有用過ANDxx (And) 條件判斷語(yǔ)句—“與”1. 在RPG的用法中，有ANDEQ，ANDNE之類的，與IF語(yǔ)句一起聯(lián)用。5. 關(guān)于結(jié)果數(shù)據(jù)超長(zhǎng)時(shí)的問題：當(dāng)加出的結(jié)果超長(zhǎng)，比如FHS03定義為3，2（1位整數(shù)，2位小數(shù)，下同）時(shí)，再假設(shè)FHS01=10，F(xiàn)HS02=4。 如 C ZADD 2 FLD02 3 2 即是說(shuō)，將FLD02定義為一個(gè)3位長(zhǎng)，其中1位整數(shù)，2位小數(shù)的數(shù)字變量，HI、LO、EQ 這是三個(gè)指示器位置項(xiàng)。感覺RPGLE中，至少有一半的內(nèi)容是與cycle相關(guān)的，因?yàn)槲也粫?huì)cycle，所以前面也會(huì)有那么多不知道。這時(shí)，F(xiàn)HS02ILE調(diào)用了程序FHS01ILE之后，程序中原有的接口參數(shù)的數(shù)據(jù)就可能因?yàn)檫@次調(diào)用程序而發(fā)生錯(cuò)位，從而導(dǎo)致數(shù)據(jù)的錯(cuò)誤、混亂。FHS02ILE也可以使用一個(gè)大變量來(lái)調(diào)用FHS01ILE，只要總長(zhǎng)相等即可（這種方法僅限于被調(diào)用的程序FHS01ILE的入口參數(shù)全部為字符型才可使用，僅僅只是不會(huì)錯(cuò)，不建議這樣使用?？梢哉J(rèn)為結(jié)構(gòu)變量MYDS是字符型（即一直等于MYFLD01的值）這種方法，當(dāng)需要字符型變量時(shí)，就使用MYFLD01；當(dāng)需要數(shù)字變量時(shí)，就使用MYFLD02，不過我總覺得有點(diǎn)類似于作弊，一般沒用。如果此項(xiàng)為“S”，即表示這個(gè)變量與結(jié)構(gòu)無(wú)關(guān) D MYDS DSD DSFLD01 2 //2在“To/length”項(xiàng)D DSFLD02 S 2在這個(gè)定義中，變量DSFLD02就是一個(gè)獨(dú)立的變量，與結(jié)構(gòu)MYDS無(wú)關(guān)。)就是定義一個(gè)叫做MYNUM的常量，這個(gè)常量包含字母an。注意沒有使用外部文件時(shí)，“E”項(xiàng)的值為空。對(duì)文件的修改操作進(jìn)行日志處理： FPFFHSL2 UF E K DISK COMMIT 補(bǔ)充說(shuō)明聲明的文件，可以同時(shí)使用多個(gè)keyword關(guān)鍵字，并可以不在同一行（但必須緊接在聲明的文件的下面），如下：FPFFHSL2 IF E DISK RENAME（FMTFHS：FMTFHS2）F COMMIT即表示文件PFFHSL2，同時(shí)使用了RENAME、COMMIT兩個(gè)關(guān)鍵字。而填寫此關(guān)鍵字之后，OPEN，CLOSE的操作將由用戶在C行程序段中，自行處理。比如說(shuō)程序中需要同時(shí)聲明PFFHSL1，PFFHSL2這兩個(gè)邏輯文件。），此項(xiàng)填“K”時(shí)，聲明的文件必須含有KEY值。沒用過 通常不填Limit Processing 不懂?？梢圆惶睿蛱睢癆”當(dāng)File Type為“O”時(shí)，系統(tǒng)自動(dòng)默認(rèn)此項(xiàng)為“A”，不必填寫；當(dāng)File Type為“I”，或“U”時(shí)，這項(xiàng)內(nèi)容可以填“A”，也可以不填。File Type： 聲明文件的處理類型。從這個(gè)程序中，我們可以看到，RPGLE的程序，大致上可以分為兩個(gè)部分： 聲明、定義部分：聲明程序中使用到的文件（F行），定義程序中使用的變量（D行） 程序運(yùn)行部分 ：即C行，也就是程序段。 簡(jiǎn)單的程序流程為方便起見，系統(tǒng)自動(dòng)顯示的就不再貼出來(lái)了，只貼代碼段。HELLO WORLD39。 RECORD 224。ExtFactor2+++++++Result++++++++Len++D+HiLoEq *************** Beginning of data ************************************* C 39。假設(shè)有PF文件叫PFFHS，文件的記錄格式叫FMTFHS每條記錄，都是由字段FHS0FHS0FHS03三個(gè)字段組成，每個(gè)字段都是兩位長(zhǎng)的字符型變量。意思是指將打開指示器*INLR，即賦值使指示器*INLR的值等于1。程序中的F行、D行都不是必須項(xiàng)，一個(gè)程序可以沒有F行（如僅完成計(jì)算功能的公共函數(shù)，比如計(jì)算利息），也可以沒有D行（沒有需要特別定義的變量，或者所有變量都在C行進(jìn)行定義），但不應(yīng)該沒有C行，因?yàn)镕行與D行都屬于非執(zhí)行行（多音字，zhi xing hang），是起定義作用；C行，是執(zhí)行行。 C：混合型，常用于對(duì)屏幕文件的定義。(Cycle我沒有用過，不知道現(xiàn)在是不是已經(jīng)不流行使用。 因?yàn)橐话愣际褂猛獠棵枋鑫募?，所以這里一般都不填寫。屏幕文件(DSPF)的定義用這個(gè)值 （下面這兩種我沒用過的） SEQ： 磁帶文件，文件存儲(chǔ)在磁帶上。 那么，為了能讓系統(tǒng)區(qū)分，就必須對(duì)其中一個(gè)的記錄格式名進(jìn)行重命名。USROPN常作用于對(duì)文件的解鎖，在同一程序中打開同一文件的不同MEMBER等，屬于一個(gè)較高級(jí)的用法，可在實(shí)際操作中慢慢體會(huì)?？梢圆惶睿蛱睢癊” 上面的解釋可能有點(diǎn)饒口，其實(shí)這個(gè)地方的意思，就是說(shuō)：如果是程序內(nèi)部自行定義一個(gè)臨時(shí)變量，此處不填；如果是引用的一個(gè)外部文件作為數(shù)據(jù)結(jié)構(gòu)，那么這里就要填“E” ；同時(shí)“Declaration Type”處，就要填“DS”，即定義為一個(gè)結(jié)構(gòu)；“Keywords”處要使用EXTNAME關(guān)鍵字 所謂“引用一個(gè)外部文件作為數(shù)據(jù)結(jié)構(gòu)”，也就是說(shuō)定義一個(gè)結(jié)構(gòu)，整個(gè)結(jié)構(gòu)中的變量，參照外部文件來(lái)定義。此項(xiàng)為空時(shí)，好象只能用來(lái)表示當(dāng)前定義的變量是屬于結(jié)構(gòu)的一個(gè)變量。From： 當(dāng)“Declaration Type”項(xiàng)為“S”時(shí)，表示獨(dú)立變量、數(shù)組，此項(xiàng)不填 當(dāng)“Declaration Type”項(xiàng)為“DS”時(shí)，表示結(jié)構(gòu)，此項(xiàng)仍然不填當(dāng)“Declaration Type”項(xiàng)為空時(shí)，表示當(dāng)前定義的變量，屬于上面定義的結(jié)構(gòu)，此時(shí)，此項(xiàng)可以填寫，也可以不填寫。右對(duì)齊Internal Data Type： 定義變量的類型，允許的值有： 空：變量定義為字符型、壓縮型數(shù)字 A： 變量定義為字符型 B： 二進(jìn)制？不知道 D： 變量定義為日期型 F： 變量定義為浮點(diǎn)型？ G： 變量定義為圖型？（非英文？漢字？） I： 變量定義為帶符號(hào)的整數(shù) N： 變量定義為指示器變量？（沒用過） P： 變量定義為壓縮型數(shù)字 S： 變量定義為普通的數(shù)型 T： 變量定義為時(shí)間型 U： 變量定義為無(wú)符號(hào)的整數(shù) Z： 變量定義為日期+時(shí)間型（格式：） *： 變量定義為指針型 其實(shí)我最常用，就是不填，因?yàn)橐话愕某绦?，有字符和?shù)字這兩種類型變量，就足夠了。假設(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)上述定義，表示這個(gè)程序通過兩個(gè)字段與其它外部程序溝通?？梢钥吹剑瑓⒄胀獠课募x結(jié)構(gòu)做為入口參數(shù)時(shí)，可以有效的節(jié)省代碼行，而且不會(huì)出現(xiàn)遺漏。這樣調(diào)整入口參數(shù)時(shí)，只要修改PF文件并重新編譯，再編譯相關(guān)程序即可（至少發(fā)生遺漏時(shí)，程序會(huì)報(bào)錯(cuò)異常中斷，不會(huì)出現(xiàn)錯(cuò)誤的數(shù)據(jù)而不自知） C行說(shuō)明 寫在前面終于說(shuō)到程序的執(zhí)行部分，也是我們寫程序的平時(shí)接觸的最多的一部分：“C”行了。如果指示器打開后，需要執(zhí)行多條語(yǔ)句，那么每條語(yǔ)句前面，該項(xiàng)都要賦值。 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. 賦值語(yǔ)句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ū)操作(這個(gè)我也沒用過)IN、OUT、UNLOCK10. 日期操作ADDDUR、EXTRCT、SUBDUR、TEST11. 指示器操作SETOFF、SETON12. 信息操作（前兩個(gè)也沒用過）DUMP、SHTDN、TIME、DSPLY13. 內(nèi)存管理操作(完全沒用過)ALLOC、DEALLOC、REALLOC14. 位操作（這些我都沒用過）BITOFF、BITON、TESTB ILE操作碼 ACACQ {(E)} (Acquire) 取地址位。可根據(jù)實(shí)際情況選擇使用ADD還是EVAL.ADDDUR {(E)} (Add Duration) 日期時(shí)間相加1. 對(duì)日期型變量進(jìn)行加操作，比如說(shuō)已定義日期型變量MYDATE1，MYDATE2，將MYDATE1的日期加上3天，賦值到MYDATE2中： Factory 1 Operation Factory 2 Result MYDATE1 AD