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