【正文】 Organization Device Keywords Comment 各項(xiàng)的含義分別是：(數(shù)了一下，居然有一半都不知道該怎么用)Filename： 需要聲明的文件名，必須頂格，文件名必須唯一，也就是程序中對同樣的文件名不能聲明兩次。新手如果不太明白，就記住 C SETON LR C RETURN或 C EVAL *INLR=’1’ C RETURN這兩句話加在一起，表示程序結(jié)束就可以了。（寫文件的源碼時(shí)）文件的記錄格式在程序中，不能與文件名相同。初學(xué)者如果不太清楚從何處開始下手，可以使用“F4”鍵查看（F4鍵只有用2進(jìn)入的編輯狀態(tài)才有效，用5進(jìn)入的查看狀態(tài)是無效的）Level N01 Factor 1 Operation Factor 2 Result 39。并對用戶作如下假定： 能COPY、修改、編譯源代碼(RPGLE)，并能運(yùn)行編譯后的程序 能COPY、修改、編譯文件（PF、LF、PRTF、DSPF）； 對數(shù)據(jù)文件（PF）有簡單的認(rèn)識(shí)（FIELD 224。HELLO WORLD39。邏輯文件PFFHSL1的鍵值為FHS01邏輯文件PFFHSL2的鍵值為FHS02邏輯文件PFFHSL3的鍵值為FHS0FHS02注：文件的記錄格式，可以理解為給這個(gè)文件整條記錄起的一個(gè)名字；或者是說將每條記錄視都視做一個(gè)類型相同大變量，然后給這個(gè)大變量起的名字。等價(jià)于 “ EVAL *INLR=’1’ ”，意思是強(qiáng)制將內(nèi)存中的數(shù)據(jù)寫到磁盤中。沒有C行的程序，是無執(zhí)行意義的。（不太明白C與U之差的差別） 此項(xiàng)最常用的，是I、U、OFile Designation： 文件的指定方式，允許的選項(xiàng)有： 不填：表示這是一個(gè)輸出文件，即“File Type”項(xiàng)為“O”時(shí)，此項(xiàng)不填 P：表明聲明的文件是主文件，這個(gè)很少用，cycle相關(guān) S：表明聲明的文件是次文件，這個(gè)沒用過，cycle相關(guān) R：Record address file，記錄地址文件？不懂，沒用過 T：數(shù)組或表文件？不懂，沒用過 F：常用，具體含義不知道該如何翻譯(Full procedural file)簡單來說，不考慮cycle(cycle這個(gè)對新手是不是難度有點(diǎn)大？)，這樣理解就夠了：當(dāng)“File Type”為I，U，C時(shí)，這里填“F” 當(dāng)“File Type ”為O時(shí)，這里不填寫End of File： 程序結(jié)束前，對記錄的處理方式。希望能有熟悉的貼一份詳細(xì)的說明，或給個(gè)鏈接) 當(dāng)定義為非cycle文件時(shí)，即“File Designation”項(xiàng)非“P”、“S”時(shí)，此項(xiàng)必須為空； 當(dāng)定義為cycle文件時(shí)，即“File Designation”項(xiàng)為“P”、或“S”時(shí)，此項(xiàng)可填空、A、D。Record Address Type 不知道該怎么翻譯，好象是對文件鍵值的描述。 SPECIAL： 特殊文件，我現(xiàn)在也不是很清楚具體使用方式，新手可以不看。RENAME的語法：RENAME（舊記錄格式名：新記錄格名），如下：FPFFHSL1 IF E DISKFPFFHSL2 IF E DISK RENAME（FMTFHS：FMTFHS2新記錄格式可以自由定義，只要在該程序中無同名的即可。OPEN，CLOSE的操作碼，對應(yīng)的是文件名，不是記錄格式名。所謂結(jié)構(gòu)，可以理解為一個(gè)“由多個(gè)變量組合而成的大變量”。在下面會(huì)舉例 DS： 數(shù)據(jù)結(jié)構(gòu)，即定義一個(gè)結(jié)構(gòu)變量，這個(gè)之前已講過 C： 常量常量只能使用字符，不需要定義常量的長度、類型。當(dāng)填寫時(shí)，“From”項(xiàng)表示變量在結(jié)構(gòu)中的起始位置，右對齊；“To/length”表示變量在結(jié)構(gòu)中的結(jié)束位置，也是右對齊。Decimal Positions： 當(dāng)變量定義為數(shù)字型時(shí)，用來標(biāo)志小數(shù)的位數(shù)。那么別的程序(如FHS02ILE)在調(diào)用程序FHS01ILE時(shí)，就要帶上兩個(gè)字符型變量，如C CALL ‘FHS01ILE’C PARM FHSFLD01 3C PARM FHSFLD02 4在兩個(gè)程序里，這兩個(gè)變量名可以不同（比如說一邊叫FHSFLD01，F(xiàn)HSFLD02；一邊叫FLD01，F(xiàn)LD02），但長度，類型必須匹配。所以在實(shí)際使用中，常會(huì)看到，將一些公共程序的入口參數(shù)定義成一個(gè)PF文件。在這里，我想先說一下我個(gè)人的看法： 400系統(tǒng)，提供了一些語法，可以大大減少程序代碼行數(shù)。 即 C IF *IN12=’1’ C EVAL FHS01=’01’ C EVAL FHS02=’02’ C ENDIF 如果用這種方式來表達(dá)，就要寫作 C 12 EVAL FHS01=’01’ C 12 EVAL FHS02=’02’ 所以說，根據(jù)指示器狀態(tài)來執(zhí)行的語句，在執(zhí)行少量操作碼時(shí)，可以使用這種方法；如果語句較多，修改起來不方便，還是直接用IF—ENDIF的判斷語句比較合適。其實(shí)400的程序中也有指針型變量，那么也就會(huì)有地址位，這個(gè)命令是取地址位的。在實(shí)際運(yùn)用時(shí)，常需要將日期型變量與8位數(shù)字型變量轉(zhuǎn)換。Operation項(xiàng)用EVAL操作碼時(shí)，再按F4，會(huì)看到Factory2項(xiàng)變成了一個(gè)很長的Extended Factory2項(xiàng)，而原來的Result、Length、Decimal Positions、HI、LO、EQ項(xiàng)都沒了。如CALL ‘FHSILE01’ 就表示調(diào)用“FHSILE01”這個(gè)外部程序2. 如果沒有用單引號，如CALL FHSILE01就表示，F(xiàn)HSILE01這時(shí)是個(gè)字符型變量（即并非調(diào)用“FHSILE01這個(gè)程序），調(diào)用的是變量內(nèi)容所代表的程序。需要配合“END”或“ENDCS”語句來表示條件判斷的結(jié)束。3. 字段FLD01如果內(nèi)容后面有空格，如“ABC ”，那么在CAT操作時(shí)，系統(tǒng)會(huì)自動(dòng)將后面的空格截去，只取’ABC’。（但可以用只讀的方式定位）3. LO指示器，僅于用修改方式聲明的文件。CHECK {(E)} (Check Characters) 檢查目標(biāo)變量中的字符1. 基本語法：Factory 1 Operation Factory 2 Result HI LO EQ FLD01 CHECK FLD02:2 N 42語句CHECK的意思，是指字段FLD02中，從第二位字符開始，向右查找(含第二位字符)，是否包含有FLD01中沒有的字符。那么這個(gè)N當(dāng)然就是變量FLD02的實(shí)際長度；如果指示器未打開，那么說明整行都是空，實(shí)際長度為0，也沒錯(cuò)。COMP (Compare) 比較1. 基本語法：將Factory 1與Factory 2進(jìn)行比較。Factory 1 Operation Factory 2 Result HI LO EQ FLD01 DIV FLD02 N MVR M 上面兩句話的意思，是說，用FLD01來除FLD02，將商賦值到變量N中，將余數(shù)，賦值到變量M中。Factory 1 Operation Factory 2 Result HI LO EQ FLD01 COMP FLD02 56 57 58 當(dāng)FLD01=2，F(xiàn)LD02=1時(shí)，*IN56=’1’， *IN57=’0’, *IN58=’0’ 當(dāng)FLD01=2，F(xiàn)LD02=2時(shí)，*IN56=’0’, *IN57=’0’, *IN58=’1’ 當(dāng)FLD01=1，F(xiàn)LD02=2時(shí)，*IN56=’0’, *IN57=’1’, *IN58=’0’ 字符也可以進(jìn)行比較，好象是按字母排序，然后將內(nèi)碼相加，再比較（類似于ASCII碼一樣，不過不是特別清楚這個(gè)規(guī)律，所以一般沒用）坦白說，我覺得這個(gè)操作碼有點(diǎn)無聊。CLEAR (Clear) 清除內(nèi)容 1. 基本語法Factory 1 Operation Factory 2 Result CLEAR 目標(biāo)名 這個(gè)目標(biāo)名，可以是程序中定義的結(jié)構(gòu)、文件的記錄格式名?！癋LD02:2”表示從變量FLD02的第二位開始，向右作比較。5. 當(dāng)FHS01鍵值，在文件PFFHSL1中，對應(yīng)有多條記錄時(shí)（即鍵值不唯一），程序?qū)?huì)按照文件的內(nèi)部記錄號由小到大的順序，定位到符合條件的第一條記錄。比如將FLD01與FLD02拼起來，中間無空格，賦值到FLD03中，也可以寫做：EVAL FLD03=FLD01 + FLD026. EVAL操作碼的優(yōu)勢，在于可以在一行語句中，就把多個(gè)字符拼在一起，如：EVAL FLD05=FLD01+FLD02+FLD03+FLD04 如果要用CAT寫，就要寫多行，不簡潔。2. 舉例如下：Factory 1 Operation Factory 2 Result FLD01 CASEQ ‘1’ SUB01 FLD01 CASEQ ‘2’ SUB02 CAS SUB03 ENDCS 表示當(dāng)FLD01等于’1’時(shí)，執(zhí)行子過程SUB01； 當(dāng)FLD01等于’2’時(shí)，執(zhí)行子過程SUB02； 當(dāng)不滿足以上兩個(gè)條件時(shí)，執(zhí)行子過程SUB03 最后的“ENDCS”必須要有，表示條件判斷結(jié)束；但不需要SELECT。3. 被調(diào)用的外部程序如果有接口參數(shù)，那么CALL操作碼之后，也需要有“PARM”操作碼相對應(yīng)。這里，BEGSR本身用法沒什么特別的，只是要注意有BEGSR語句，就一定要有ENDSR對應(yīng)。如MOVE 日期型變量 數(shù)字型變量，反之也是。ADD {(H)} (Add) 加法操作1. 基本語法： Factory 1 Operation Factory 2 Result FHS01 ADD FHS02 FHS03 // RPG的語法 等價(jià)于 EVAL FHS03=FHS01+FHS02 //RPGLE的語法 FHS0FHS0FHS03必須都為數(shù)字型變量（P型，或S型），或者就是數(shù)字 意思是將Factory 1項(xiàng)的數(shù)據(jù)，加上Factory 2項(xiàng)的數(shù)據(jù)，賦值到Result項(xiàng)上2. 語法二：如果這樣寫的話： Factory 1 Operation Factory 2 Result ADD FHS02 FHS03就等價(jià)于： EVAL FHS03=FHS03+FHS02即Factory 1項(xiàng)未填時(shí)，就表示將Result 項(xiàng)的數(shù)據(jù)，加上Factory 2項(xiàng)的數(shù)據(jù)，然后賦值到Result項(xiàng)上3. 四舍五入：（H）表示四舍五入，如FHS02=（4，2），F(xiàn)HS03=3（2，0），那么 ADD(H) FHS02 FHS03 執(zhí)行之后，F(xiàn)HS03=16（因?yàn)檫M(jìn)位了） 而 ADD FHS02 FHS03 執(zhí)行之后，F(xiàn)HS03=15不過實(shí)際使用中，我們都盡可能使相加的字段小數(shù)位數(shù)相等，所以ADD操作碼一般都沒有使用到四舍五入的功能。變量的定義，除了在D行定義之外，還可以在C行通過賦值語句直接定義如D FLD01 S 2 INZ(‘01’)與C MOVE ‘01’ FLD01 2 //2在length處，右對齊是等價(jià)的一個(gè)變量，在整個(gè)程序中，只要定義一次就可以了，對定義的順序沒有強(qiáng)制要求。如果只是知道幾個(gè)與RPG，RPGLE對應(yīng)的語法就用來進(jìn)行實(shí)際處理，可能會(huì)造成的維護(hù)的不便，尤其是在出現(xiàn)一些不那么明顯的錯(cuò)誤之后。當(dāng)接口參數(shù)不一致時(shí)，如FHS02ILE中漏了第二個(gè)參數(shù)時(shí)：C CALL ‘FHS01ILE’C PARM FHS01 3此時(shí)，并不是一開始運(yùn)行FHS01ILE程序，系統(tǒng)判斷入口參數(shù)不符就報(bào)錯(cuò)；實(shí)際上，此時(shí)，F(xiàn)LD01的值還是正確的，但FLD02的值就處于一個(gè)未初始化的狀態(tài)。如果FHS01ILE程序中，對FLD0FLD02進(jìn)行了改動(dòng)，比如FLD01最后等于’789’，F(xiàn)LD02最后等于’efgh’，那么程序FHS02ILE在調(diào)用完FHS01ILE之后，F(xiàn)HSFLD0FHSFLD02這兩個(gè)字段也同樣會(huì)改變，成為’789’，和’efgh’也就是入口參數(shù)的變化是可以傳遞的，其實(shí)應(yīng)該很好理解吧。 常用例子定義一個(gè)10位長的字符型變量：D MYFLD S 10定義一個(gè)10位長，其中含2位小數(shù)的字符型變量，并使其初始值為1 D MYFLD S 10 2 INZ(1)定義一個(gè)每條記錄為5位長字符型變量，共10條記錄的數(shù)組 D MYFLD S 5 DIM(10)定義一個(gè)10位長的字符型變量，再定義一個(gè)變量，參照前一變量定義 D MYFLD0