【文章內(nèi)容簡(jiǎn)介】 Data Type： 定義變量的類型，允許的值有： 空：變量定義為字符型、壓縮型數(shù)字 A： 變量定義為字符型 B： 二進(jìn)制？不知道 D： 變量定義為日期型 F： 變量定義為浮點(diǎn)型？ G： 變量定義為圖型？（非英文？漢字？） I： 變量定義為帶符號(hào)的整數(shù) N： 變量定義為指示器變量？（沒(méi)用過(guò)） P： 變量定義為壓縮型數(shù)字 S： 變量定義為普通的數(shù)型 T： 變量定義為時(shí)間型 U： 變量定義為無(wú)符號(hào)的整數(shù) Z： 變量定義為日期+時(shí)間型（格式：） *： 變量定義為指針型 其實(shí)我最常用，就是不填，因?yàn)橐话愕某绦?，有字符和?shù)字這兩種類型變量，就足夠了。Decimal Positions： 當(dāng)變量定義為數(shù)字型時(shí)，用來(lái)標(biāo)志小數(shù)的位數(shù)。 當(dāng)“To/Length”項(xiàng)為3，“Internal Data Type”項(xiàng)為空時(shí) 此項(xiàng)為空，表示定義的變量為3位長(zhǎng)的字符型 D MYFLD01 S 3 //定義為3位字符型 此項(xiàng)不為空（右對(duì)齊），表示定義的變量為數(shù)字型 D MYFLD01 S 3 2 //定義數(shù)字型變量，1位整數(shù)，2位小數(shù)（總長(zhǎng)為3位）Keywords： 關(guān)鍵字，可以不填，常用的值如下：（同樣，這里我也只列出幾個(gè)常用的，這里先不做詳細(xì)說(shuō)明，僅供參考，在后面的例子，看看就知道用法了） CONST： 定義常量的值 DIM： 定義數(shù)組 EXTNAME：引用外部文件作為數(shù)據(jù)結(jié)構(gòu)變量 EXTFLD： 對(duì)引用了外部文件作為數(shù)據(jù)結(jié)構(gòu)的某個(gè)變量，進(jìn)行重命名 LIKE： 定義變量時(shí)，參照已存在的變量定義 OCCURS： 定義結(jié)構(gòu)體變量時(shí)，指定的結(jié)構(gòu)體變量的記錄條數(shù) INZ： 定義變量時(shí)，賦值初始值 DATFMT： 定義日期變量時(shí)，指定日期格式 *MDY (mm/dd/yy) *DMY (dd/mm/yy) *YMD (yy/mm/dd) *JUL (yy/ddd) *ISO (yyyymmdd)*USA (mm/dd/yyyy)*EUR ()*JIS (yyyymmdd)Comment注釋項(xiàng)，源自RPG，不用填，因?yàn)樘盍艘矝](méi)用。 常用例子定義一個(gè)10位長(zhǎng)的字符型變量：D MYFLD S 10定義一個(gè)10位長(zhǎng)，其中含2位小數(shù)的字符型變量，并使其初始值為1 D MYFLD S 10 2 INZ(1)定義一個(gè)每條記錄為5位長(zhǎng)字符型變量，共10條記錄的數(shù)組 D MYFLD S 5 DIM(10)定義一個(gè)10位長(zhǎng)的字符型變量，再定義一個(gè)變量，參照前一變量定義 D MYFLD01 S 10 D MYFLD02 S LIKE(MYFLD01)定義一個(gè)結(jié)構(gòu)，由一個(gè)3位長(zhǎng)的字符變量，和一個(gè)10位長(zhǎng)，其中2位小數(shù)的數(shù)字變量組成 D MYDS DS D MYDS01 3 D MYDS02 10 2定義一個(gè)結(jié)構(gòu)變量，結(jié)構(gòu)內(nèi)容參照外部文件PFFHS D MYDS E DS EXTNAME(PFFHS)定義一個(gè)結(jié)構(gòu)變量，結(jié)構(gòu)內(nèi)容參照外部文件PFFHS，并且將第二個(gè)字段重命名為FHS999 D MYDS E DS EXTNAME(PFFHS) D FHS999 E DS EXTFLD(FHS02)定義一個(gè)日期型變量，格式為yyyymmdd D MYDATE S D DATFMT(*ISO) 補(bǔ)充說(shuō)明變量的定義，除了在D行定義之外，還可以在C行通過(guò)賦值語(yǔ)句直接定義如D FLD01 S 2 INZ(‘01’)與C MOVE ‘01’ FLD01 2 //2在length處，右對(duì)齊是等價(jià)的定義結(jié)構(gòu)之后，可以將結(jié)構(gòu)變量視為一個(gè)普通的變量進(jìn)行賦值來(lái)改變結(jié)構(gòu)變量的值，也可以通過(guò)對(duì)組成結(jié)構(gòu)變量的變量進(jìn)行賦值，來(lái)達(dá)到修改結(jié)構(gòu)變量的值的目的。如：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’?？梢哉J(rèn)為結(jié)構(gòu)變量MYDS是字符型（即一直等于MYFLD01的值）這種方法，當(dāng)需要字符型變量時(shí)，就使用MYFLD01；當(dāng)需要數(shù)字變量時(shí)，就使用MYFLD02，不過(guò)我總覺(jué)得有點(diǎn)類似于作弊，一般沒(méi)用。關(guān)于數(shù)組、結(jié)構(gòu)體的內(nèi)容，因?yàn)橐f(shuō)起來(lái)內(nèi)容還頗多，而也屬于略為高級(jí)一些的用法，所以將在后面專設(shè)章節(jié)講述。 入口參數(shù)程序可以通過(guò)“*ENTRY”定義入口參數(shù)，或稱之為接口參數(shù)，來(lái)傳遞數(shù)據(jù)。假設(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è)程序通過(guò)兩個(gè)字段與其它外部程序溝通。那么別的程序(如FHS02ILE)在調(diào)用程序FHS01ILE時(shí)，就要帶上兩個(gè)字符型變量，如C CALL ‘FHS01ILE’C PARM FHSFLD01 3C PARM FHSFLD02 4在兩個(gè)程序里，這兩個(gè)變量名可以不同（比如說(shuō)一邊叫FHSFLD01，F(xiàn)HSFLD02；一邊叫FLD01，F(xiàn)LD02），但長(zhǎng)度，類型必須匹配。如果在FHS02ILE中，F(xiàn)HSFLD01等于’123’，F(xiàn)HSFLD02等于’abcd’，那么系統(tǒng)在運(yùn)行CALL語(yǔ)句，執(zhí)行程序FHS01ILE時(shí)，將會(huì)對(duì)字段FLD01初始化賦值，使其一開(kāi)始就等于’123’，字段FLD02等于’abcd’。如果FHS01ILE程序中，對(duì)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)該很好理解吧。入口參數(shù)的定義，可以寫在程序的任何一處，而程序的執(zhí)行，始終是從C行的順序第一行開(kāi)始執(zhí)行，與入口參數(shù)所在的位置無(wú)關(guān)。FHS02ILE也可以使用一個(gè)大變量來(lái)調(diào)用FHS01ILE，只要總長(zhǎng)相等即可（這種方法僅限于被調(diào)用的程序FHS01ILE的入口參數(shù)全部為字符型才可使用，僅僅只是不會(huì)錯(cuò)，不建議這樣使用。C CALL ‘FHS01ILE’ PARM FHSFLD01 7其實(shí)從上面的例子可以看出，入口參數(shù)可以使用結(jié)構(gòu)的形式來(lái)表達(dá)，所以下面這種寫法也不會(huì)有錯(cuò)。（如果被調(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)。原理可以自行想想。既然可以使用結(jié)構(gòu)做為入口參數(shù)，當(dāng)然，也可以參照外部文件來(lái)定義結(jié)構(gòu)做為入口參數(shù)D MYDS E DS EXTNAME(PFFHS)C CALL ‘FHS01ILE’C PARM MYDS與C CALL ‘FHS01ILE’C PARM FHS01 2C PARM FHS02 2C PARM FHS03 2是等價(jià)的?？梢钥吹剑瑓⒄胀獠课募x結(jié)構(gòu)做為入口參數(shù)時(shí)，可以有效的節(jié)省代碼行，而且不會(huì)出現(xiàn)遺漏。所以在實(shí)際使用中，常會(huì)看到，將一些公共程序的入口參數(shù)定義成一個(gè)PF文件。而調(diào)用它的程序，就參照這個(gè)PF文件，定義結(jié)構(gòu)做為調(diào)用的接口參數(shù)。當(dāng)接口參數(shù)不一致時(shí)，如FHS02ILE中漏了第二個(gè)參數(shù)時(shí)：C CALL ‘FHS01ILE’C PARM FHS01 3此時(shí)，并不是一開(kāi)始運(yùn)行FHS01ILE程序，系統(tǒng)判斷入口參數(shù)不符就報(bào)錯(cuò)；實(shí)際上，此時(shí)，F(xiàn)LD01的值還是正確的，但FLD02的值就處于一個(gè)未初始化的狀態(tài)。于是，當(dāng)代碼執(zhí)行到與FLD02有關(guān)的操作碼時(shí)，才會(huì)報(bào)錯(cuò)；如果FHS01ILE在運(yùn)行的過(guò)程中，因?yàn)檫壿嬇袛啵ㄈ鏘F條件判斷）的關(guān)系，而未執(zhí)行任何與FLD02有關(guān)的操作碼，那么程序會(huì)正常運(yùn)行完畢，不會(huì)有報(bào)錯(cuò)。這時(shí)，F(xiàn)HS02ILE調(diào)用了程序FHS01ILE之后，程序中原有的接口參數(shù)的數(shù)據(jù)就可能因?yàn)檫@次調(diào)用程序而發(fā)生錯(cuò)位，從而導(dǎo)致數(shù)據(jù)的錯(cuò)誤、混亂。數(shù)據(jù)的錯(cuò)誤、混亂其實(shí)還不是最大的問(wèn)題，更大的問(wèn)題在于“這時(shí)我們不知道數(shù)據(jù)已經(jīng)出錯(cuò)了”。解決之道，也是如上所說(shuō)，對(duì)于調(diào)用頻繁，且入口參數(shù)較多的公共程序，考慮將其入口參數(shù)寫成一個(gè)PF文件。這樣調(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”行了。在這里，我想先說(shuō)一下我個(gè)人的看法： 400系統(tǒng)，提供了一些語(yǔ)法，可以大大減少程序代碼行數(shù)。但是如果這個(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)，才能正式使用。如果只是知道幾個(gè)與RPG，RPGLE對(duì)應(yīng)的語(yǔ)法就用來(lái)進(jìn)行實(shí)際處理，可能會(huì)造成的維護(hù)的不便，尤其是在出現(xiàn)一些不那么明顯的錯(cuò)誤之后。 至于cycle，不知道是不是基于這個(gè)原因，現(xiàn)在用得也比較少了。感覺(jué)RPGLE中，至少有一半的內(nèi)容是與cycle相關(guān)的。 內(nèi)容說(shuō)明 Level N01 Factor 1 Operation Factor 2 Result Decimal Length Positions HI LO EQ Comment Level： 和cycle相關(guān)，沒(méi)研究過(guò)，一般不填N01： 這個(gè)含義比較豐富，我只用過(guò)其中一種： 首位不帶N，后面填寫01—99的數(shù)字時(shí)，表示相應(yīng)的指示器打開(kāi)時(shí)，執(zhí)行后面的操作，如： C 12 EVAL FHS01=’01’等價(jià)于 IF *IN12=’1’ EVAL FHS01=’01’ ENDIF 首位帶N，后面填寫01—99的數(shù)字，表示相應(yīng)的指示器關(guān)閉時(shí)，執(zhí)行后面的操作 要注意，該項(xiàng)內(nèi)容僅作用于該行操作碼。如果指示器打開(kāi)后，需要執(zhí)行多條語(yǔ)句，那么每條語(yǔ)句前面，該項(xiàng)都要賦值。 即 C IF *IN12=’1’ C EVAL FHS01=’01’ C EVAL FHS02=’02’ C ENDIF 如果用這種方式來(lái)表達(dá)，就要寫作 C 12 EVAL FHS01=’01’ C 12 EVAL FHS02=’02’ 所以說(shuō)，根據(jù)指示器狀態(tài)來(lái)執(zhí)行的語(yǔ)句，在執(zhí)行少量操作碼時(shí)，可以使用這種方法；如果語(yǔ)句較多，修改起來(lái)不方便，還是直接用IF—ENDIF的判斷語(yǔ)句比較合適。 該項(xiàng)還有針對(duì)其它指示器的用法，看上去似乎又是與CYCLE相關(guān)，暫不介紹了。Factor 1： 操作內(nèi)容一，將在后面與操作碼一起講Operation： 操作碼，后面有專門章節(jié)講解操作碼Factor 2： 操作內(nèi)容二，同上Result： 操作結(jié)果，同上Length： 長(zhǎng)度。變量的定義，除了在D行定義之外，還可以在C行通過(guò)賦值語(yǔ)句直接定義如D FLD01 S 2 INZ(‘01’)與C MOVE ‘01’ FLD01