【正文】 在這個(gè)Extended Factory 2項(xiàng)中BEGSR (Beginning of Subroutine) 子過(guò)程的開(kāi)始處 Factory 1 Operation Factory 2 Result BEGSR 子過(guò)程名在前面，講述程序流程時(shí)，已經(jīng)對(duì)子過(guò)程進(jìn)行了解釋。這時(shí)要使用MOVE操作碼。我試過(guò)，不過(guò)不知道取出了地址位能干嘛，所以沒(méi)有實(shí)際運(yùn)用過(guò)。Factor 1： 操作內(nèi)容一，將在后面與操作碼一起講Operation： 操作碼，后面有專門章節(jié)講解操作碼Factor 2： 操作內(nèi)容二，同上Result： 操作結(jié)果，同上Length： 長(zhǎng)度。但是如果這個(gè)用法并不普遍，那么并不建議使用（當(dāng)然自己用來(lái)練習(xí)無(wú)妨），否則會(huì)給其它讀代碼的人帶來(lái)困難，同時(shí)也會(huì)給自己帶來(lái)麻煩（比如出了問(wèn)題，別人看不懂，自然會(huì)打電話來(lái)問(wèn)原作者） 基于這樣的道理，同樣，我認(rèn)為FREE格式的程序，雖然可以自由書寫，有縮進(jìn)等優(yōu)勢(shì)，但是除非整個(gè)項(xiàng)目組所有成員都已熟練掌握FREE格式的程序，或已進(jìn)行過(guò)完善、系統(tǒng)的FREE格式的培訓(xùn)，才能正式使用。而調(diào)用它的程序，就參照這個(gè)PF文件，定義結(jié)構(gòu)做為調(diào)用的接口參數(shù)。入口參數(shù)的定義，可以寫在程序的任何一處，而程序的執(zhí)行，始終是從C行的順序第一行開(kāi)始執(zhí)行，與入口參數(shù)所在的位置無(wú)關(guān)。如：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的值也變化了） 第二句是對(duì)MYFLD02進(jìn)行賦值，同樣，賦完值之后，MYDS的后兩位也變?yōu)椤?1’在需要頻繁進(jìn)行數(shù)字與字符之間轉(zhuǎn)換時(shí)，偷懶的人會(huì)通過(guò)定義這樣的結(jié)構(gòu)來(lái)達(dá)到目的：D MYDS DSD MYFLD01 1 8D MYFLD02 1 8 0比如說(shuō)，給MYFLD01賦值為’20070208’之后，MYFLD02也就自動(dòng)等于20070208；然后給MYFLD02加1之后，MYFLD02等于20070209，MYFLD01的值也自動(dòng)等于’20070209’。所不同的是，第一種定義方法，是指定了變量在結(jié)構(gòu)中的位置；而第二種方法，是直接指定變量的長(zhǎng)度和類型注意到上面的定義中，DSFLD0DSFLD02的Declaration Type為空，也就是表示這兩個(gè)字段是屬于上面定義的結(jié)構(gòu)MYDS。abcdefghijklmn39。而第二種定義方法，就是直接定義一個(gè)結(jié)構(gòu)“MYDS”。（填了也沒(méi)用） 常用例子對(duì)文件進(jìn)行只讀的聲明：FPFFHS IF E DISK 對(duì)文件進(jìn)行修改的聲明： FPFFHS UF E DISK 對(duì)文件進(jìn)行只寫的聲明： FPFFHS O E DISK 對(duì)文件進(jìn)行修改，以及增加記錄的操作： FPFFHS UF A E DISK對(duì)文件進(jìn)行查詢，增加記錄的操作，并對(duì)文件進(jìn)行查詢操作： FPFFHSL1 IF A E K DISK聲明兩個(gè)記錄格式相同的文件，并對(duì)其中之一進(jìn)行重命名 FPFFHSL1 IF E K DISK FPFFHSL2 IF E K DISK RENAME(FMTFHS:FMTFHS2)注：在聲明時(shí)，兩個(gè)文件不一定要上下緊接著；隨便改哪一個(gè)文件對(duì)應(yīng)的記錄格式都可以；新舊記錄格式名用冒號(hào)隔開(kāi)，新記錄格式名可自行定義，無(wú)規(guī)則。如果不填寫此關(guān)鍵字，系統(tǒng)將會(huì)在程序最最開(kāi)始（執(zhí)行第一句C行語(yǔ)句前），自動(dòng)執(zhí)行“OPEN 文件” 的操作，在程序結(jié)束后，自動(dòng)執(zhí)行“CLOSE 文件”的操作。Keyword 可以不填，常用的值有（這里只列出幾個(gè)常用的）： COMMIT 該文件記錄的數(shù)據(jù)操作進(jìn)行日志處理（關(guān)于日志處理，后面會(huì)章節(jié)會(huì)講到） RENAME 對(duì)文件記錄格式名進(jìn)行重命名。（下面的選項(xiàng)應(yīng)該是程序描述文件才會(huì)使用） A： KEY值為字符型 D：KEY值為日期型 F：KEY值為數(shù)字型 G：KEY值為非英文字符 P：KEY值為壓縮型數(shù)字 T：KEY值為時(shí)間型 Z：KEY值為timestamp？ 總之，如果要按照鍵值對(duì)聲明的文件進(jìn)行查詢定位操作（即程序中使用了CHAIN、SETLL操作碼，則此項(xiàng)需要填寫“K”；如不需要進(jìn)行查詢操作，則不填。File Format 文件格式，不能為空，允許的值有： E： 聲明的文件，是外部描述的文件（即文件在程序運(yùn)行之前就已存在？） F： 聲明的文件，是一個(gè)程序描述文件？（不知道什么意思，沒(méi)用過(guò)） 這里通常填“E”，即為外部描述文件Record Length “File Format”為“F”時(shí)，才需要填寫。File Addtion： 是否會(huì)增加文件中的記錄，即是否會(huì)對(duì)文件進(jìn)行寫操作。 F行說(shuō)明 內(nèi)容說(shuō)明首位填上F，然后按F4，會(huì)出現(xiàn)如下內(nèi)容： File File End of File Filename Type Designation File Addition Sequence File Record Limits Length of Record Format Length Processing Key Field Address Type File Organization Device Keywords Comment 各項(xiàng)的含義分別是：Filename： 需要聲明的文件名，必須頂格，文件名必須唯一，也就是程序中對(duì)同樣的文件名不能聲明兩次。從這個(gè)程序中，我們可以看到，RPGLE的程序，大致上可以分為兩個(gè)部分： 聲明、定義部分：聲明程序中使用到的文件（F行），定義程序中使用的變量（D行） 程序運(yùn)行部分 ：即C行，也就是程序段。 簡(jiǎn)單的程序流程為方便起見(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)的字符型變量。意思是指將打開(kāi)指示器*INLR，即賦值使指示器*INLR的值等于1。程序中的F行、D行都不是必須項(xiàng)，一個(gè)程序可以沒(méi)有F行（如僅完成計(jì)算功能的公共函數(shù)，比如計(jì)算利息），也可以沒(méi)有D行（沒(méi)有需要特別定義的變量，或者所有變量都在C行進(jìn)行定義），但不應(yīng)該沒(méi)有C行，因?yàn)镕行與D行都屬于非執(zhí)行行，是起定義作用；C行是執(zhí)行行。允許的選項(xiàng)有： I： 輸入型，即只讀文件，對(duì)聲明的文件只取其記錄的值，不對(duì)記錄進(jìn)行修改 U： 修改型，即對(duì)聲明的文件進(jìn)行修改操作（刪除記錄屬于修改操作的一種） O： 輸出型，即只寫，對(duì)聲明的文件只進(jìn)行寫操作。Sequence： 針對(duì)cycle使用的，表示排序順序。Length of Key Field 查詢時(shí)，索引鍵值的長(zhǎng)度 如果“File Format”項(xiàng)等于“E”，即外部描述文件時(shí)，此項(xiàng)不填 如果“File Format”項(xiàng)等于“F”，便不需要按KEY值查詢時(shí)，此項(xiàng)也不填 如果“File Format”項(xiàng)等于“F”，需要按KEY值查詢時(shí)，此項(xiàng)填寫KEY值的長(zhǎng)度（1—2000）。打印報(bào)表用這個(gè)； WORKSTN： workstation，工作站，顯示文件。如果不同，當(dāng)然就不需要使用RENAME鍵字了）。程序在結(jié)束之前，必須關(guān)閉所有已打開(kāi)的文件，所以用起來(lái)會(huì)比較繁瑣。（即允許有縮進(jìn)）E： 標(biāo)識(shí)定義的變量是否源自外部數(shù)據(jù)結(jié)構(gòu)。Declaration Type： 定義變量的類型，允許的值如下： 不填： 非以下內(nèi)容：數(shù)據(jù)結(jié)構(gòu)、常量、獨(dú)立變量、數(shù)組、表。即結(jié)構(gòu)體與獨(dú)立變量，其它選項(xiàng)較少用到。 在定義非結(jié)構(gòu)時(shí)，此項(xiàng)的內(nèi)容即為定義變量的長(zhǎng)度。 入口參數(shù)程序可以通過(guò)“*ENTRY”定義入口參數(shù)，或稱之為接口參數(shù)，來(lái)傳遞數(shù)據(jù)。（如果被調(diào)用程序有數(shù)字型變量，只要在定義結(jié)構(gòu)時(shí)也定義為數(shù)字型即可）D MYDS DSD DS01 3D DS02 4C CALl ‘FHS01ILE’C PARM MYDS不過(guò)要注意，如果RPG程序調(diào)用C程序，那么入口參數(shù)必須嚴(yán)格按照C程序中的來(lái)，比如C程序中帶了兩個(gè)字符型參數(shù)，那么RPG程序中也必須是兩個(gè)字段入口參數(shù)，不能使用由兩個(gè)字符變量組成的結(jié)構(gòu)。這時(shí)，F(xiàn)HS02ILE調(diào)用了程序FHS01ILE之后，程序中原有的接口參數(shù)的數(shù)據(jù)就可能因?yàn)檫@次調(diào)用程序而發(fā)生錯(cuò)位，從而導(dǎo)致數(shù)據(jù)的錯(cuò)誤、混亂。感覺(jué)RPGLE中，至少有一半的內(nèi)容是與cycle相關(guān)的。 如 C ZADD 2 FLD02 3 2 即是說(shuō)，將FLD02定義為一個(gè)3位長(zhǎng)，其中1位整數(shù)，2位小數(shù)的數(shù)字變量，HI、LO、EQ 這是三個(gè)指示器位置項(xiàng)。5. 關(guān)于結(jié)果數(shù)據(jù)超長(zhǎng)時(shí)的問(wèn)題：當(dāng)加出的結(jié)果超長(zhǎng)，比如FHS03定義為3，2（1位整數(shù)，2位小數(shù)，下同）時(shí)，再假設(shè)FHS01=10，F(xiàn)HS02=4。ALLOC {(E)} (Allocate Storage) 好象是給指針型變量分配空間的，沒(méi)有用過(guò)ANDxx (And) 條件判斷語(yǔ)句—“與”1. 在RPG的用法中，有ANDEQ，ANDNE之類的，與IF語(yǔ)句一起聯(lián)用。所以這里建議，如果是自已從頭到尾寫一個(gè)程序，最好寫了BEGSR語(yǔ)句后，馬上寫一個(gè)ENDSR，然后再來(lái)寫中間的內(nèi)容，避免遺漏。4. 這一點(diǎn)要注意：雖然400的程序段代碼中，是不區(qū)分大小寫；但調(diào)用的程序名，要區(qū)分大寫小。而當(dāng)邏輯判斷大于一個(gè)條件時(shí)，這個(gè)語(yǔ)句就不適用了。邏輯文件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è)字符型變量，或者字符。需要注意，組合鍵值中，必須每一個(gè)成員字段都與目標(biāo)記錄所對(duì)應(yīng)的字段相等，才能查詢成功。如果僅僅只是“FLD02”，那么就表示從變量FLD02的首位開(kāi)始，向右查找2. 實(shí)例假設(shè)FLD01為8位長(zhǎng)字符，且當(dāng)前值為’12345678’而FLD02為5位長(zhǎng)字符，且當(dāng)前值為’A3456’那么執(zhí)行上述CHECK操作后，N=0， *IN42=’0’（從第二位開(kāi)始，3456都存在于變量FLD01中）假設(shè)FLD01為8位長(zhǎng)字符，且當(dāng)前值為’12345678’而FLD02為5位長(zhǎng)字符，且當(dāng)前值為’34ABDC’那么執(zhí)行CHECK操作后，N=3，*IN42=’1’ (即第三位“A”，不存在于變量FLD01中)CHECKR {(E)} (Check Reverse) 反向檢查目標(biāo)變量中的字符1. 基本語(yǔ)法：Factory 1 Operation Factory 2 Result HI LO EQ FLD01 CHECKR FLD02:3 N 42語(yǔ)句CHECKR的意思，是指字段FLD02中，從第三位字符開(kāi)始，向左查找(含第三位字符)，是否包含有FLD01中沒(méi)有的字符。 所謂文件的記錄格式名，包括了程序中聲明的磁盤文件、打印報(bào)表文件、屏幕文件 CLEAR操作的意思，就是將目標(biāo)所對(duì)應(yīng)的所有變量/字段都賦上空值。 DEDEALLOC {(E | N)} (Deallocate Storage) 沒(méi)用過(guò)，好象