【正文】 部自行定義一個(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ě)得下，也可以寫(xiě)在同一行，以空格鍵分開(kāi)，如下FPFFHSL2 IF E DISK COMMIT RENAME(FMTFHS：FMTFHS2） D行說(shuō)明首行填“D”，然后按F4，會(huì)出現(xiàn)如下內(nèi)容： Declaration To / Name E S/U Type From Length Internal Decimal Data Type Positions Keywords Comment 內(nèi)容說(shuō)明 Name: 定義的變量的名字，該名字可以不頂格寫(xiě)。（填了也沒(méi)用） 常用例子對(duì)文件進(jìn)行只讀的聲明：FPFFHS IF E DISK 對(duì)文件進(jìn)行修改的聲明： FPFFHS UF E DISK 對(duì)文件進(jìn)行只寫(xiě)的聲明： 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ī)則。即 C OPEN PFFHSL1 C CLOSE PFFHSL1 而不是 C OPEN FMTFHSComment 注釋說(shuō)明。USROPN常作用于對(duì)文件的解鎖，在同一程序中打開(kāi)同一文件的不同MEMBER等，屬于一個(gè)較高級(jí)的用法，可在實(shí)際操作中慢慢體會(huì)。如果用戶未執(zhí)行OPEN操作，就執(zhí)行CHAIN、READ、SETLL等語(yǔ)句，在編譯程序時(shí)就會(huì)報(bào)錯(cuò)。如果不填寫(xiě)此關(guān)鍵字，系統(tǒng)將會(huì)在程序最最開(kāi)始（執(zhí)行第一句C行語(yǔ)句前），自動(dòng)執(zhí)行“OPEN 文件” 的操作，在程序結(jié)束后，自動(dòng)執(zhí)行“CLOSE 文件”的操作。RENAME并不會(huì)真正的更改文件的記錄格式名，僅是在當(dāng)前運(yùn)行程序中進(jìn)行重命名。 那么，為了能讓系統(tǒng)區(qū)分，就必須對(duì)其中一個(gè)的記錄格式名進(jìn)行重命名。這兩個(gè)邏輯文件的記錄格式名都是一樣（通常和PF一樣，即都為FMTFHS；不過(guò)也可以定義成不同。Keyword 可以不填，常用的值有（這里只列出幾個(gè)常用的）： COMMIT 該文件記錄的數(shù)據(jù)操作進(jìn)行日志處理（關(guān)于日志處理，后面會(huì)章節(jié)會(huì)講到） RENAME 對(duì)文件記錄格式名進(jìn)行重命名。據(jù)blogliou說(shuō)，這種類型，是允許指定一種不能被RPG直接操作的輸入/輸出設(shè)備。屏幕文件(DSPF)的定義用這個(gè)值 （下面這兩種我沒(méi)用過(guò)的） SEQ： 磁帶文件，文件存儲(chǔ)在磁帶上。File Organization 不知道，一般不填Device 聲明文件的存放位置，必須填寫(xiě)，允許的值有： DISK： 磁盤(pán)文件，即文件存儲(chǔ)在磁盤(pán)上，最常見(jiàn)的； PRINTER： 打印文件，提供打印輸出描述，以及對(duì)打印設(shè)備訪問(wè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)需要填寫(xiě)“K”；如不需要進(jìn)行查詢操作，則不填。允許的值如下： 空：不使用KEY值，在程序段中，不會(huì)對(duì)文件的查詢定位操作，如“SETLL”、“CHAIN”操作碼都不會(huì)用的時(shí)，該項(xiàng)填空。 因?yàn)橐话愣际褂猛獠棵枋鑫募?，所以這里一般都不填寫(xiě)。通常不填。File Format 文件格式，不能為空，允許的值有： E： 聲明的文件，是外部描述的文件（即文件在程序運(yùn)行之前就已存在？） F： 聲明的文件，是一個(gè)程序描述文件？（不知道什么意思，沒(méi)用過(guò)） 這里通常填“E”，即為外部描述文件Record Length “File Format”為“F”時(shí)，才需要填寫(xiě)。A表示升序，D表示降序。(Cycle我沒(méi)有用過(guò)，估計(jì)可能是使用控制起來(lái)，程序代碼不那么直觀，不利于上手和維護(hù)，所以現(xiàn)在已經(jīng)不流行使用了。不填，即表示不會(huì)增加文件中的記錄，也就是沒(méi)有寫(xiě)操作；填“A”時(shí)，即表示會(huì)增加文件中的記錄，也就是會(huì)對(duì)文件進(jìn)行寫(xiě)操作。File Addtion： 是否會(huì)增加文件中的記錄，即是否會(huì)對(duì)文件進(jìn)行寫(xiě)操作。可以不填，或填“E”。 C：混合型，用于對(duì)屏幕文件的定義。必須填寫(xiě)。 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ì)同樣的文件名不能聲明兩次。 系統(tǒng)在運(yùn)行這個(gè)程序時(shí)，是按如下的順序來(lái)執(zhí)行：1. 首句EVAL賦值語(yǔ)句，直接執(zhí)行；2. 當(dāng)系統(tǒng)發(fā)現(xiàn)操作碼“EXSR”時(shí)，根據(jù)后面的變量名“SUBUPD”，去查找對(duì)應(yīng)的“SUBUPD BEGSR”語(yǔ)句；3. 然后從“SUBUPD BEGSR”之后，順序向下執(zhí)行，直至“ENDSR”語(yǔ)句4. 執(zhí)行到“ENDSR”之后，將會(huì)再回到當(dāng)初的“EXSR SUBUPD”處，繼續(xù)向下執(zhí)行，直到RETURN語(yǔ)句為止這里提出一點(diǎn)要注意，如果子過(guò)程中，又執(zhí)行了自身，即在SUBUPD程序中，又出現(xiàn)了“EXSR SUBUPD”，是可以編譯通過(guò)的，但在執(zhí)行過(guò)程中，系統(tǒng)會(huì)因?yàn)闊o(wú)法定位，而出現(xiàn)死循環(huán)，直至報(bào)錯(cuò)異常中斷退出。沒(méi)有C行的程序，是無(wú)執(zhí)行意義的。程序執(zhí)行的起始順序，將從定義部分之后，第一個(gè)C行開(kāi)始，順序向下執(zhí)行。從這個(gè)程序中，我們可以看到，RPGLE的程序，大致上可以分為兩個(gè)部分： 聲明、定義部分：聲明程序中使用到的文件（F行），定義程序中使用的變量（D行） 程序運(yùn)行部分 ：即C行，也就是程序段。）LR，取自是Last RecordRETURN，表示程序結(jié)束，在后面“操作碼”一節(jié)中，會(huì)有講述。等價(jià)于 “ EVAL *INLR=’1’ ”，意思是強(qiáng)制將內(nèi)存中的數(shù)據(jù)寫(xiě)到磁盤(pán)中?！癝ETON LR”，LR的位置可在HI、LO、EQ中任選一處。 簡(jiǎn)單的程序流程為方便起見(jiàn)，系統(tǒng)自動(dòng)顯示的就不再貼出來(lái)了，只貼代碼段。文件的記錄格式，與各個(gè)字段同時(shí)定義。邏輯文件PFFHSL1的鍵值為FHS01邏輯文件PFFHSL2的鍵值為FHS02邏輯文件PFFHSL3的鍵值為FHS0FHS02注：文件的記錄格式，可以理解為給這個(gè)文件整條記錄起的一個(gè)名字；或者是說(shuō)將每條記錄視都視做一個(gè)類型相同大變量，然后給這個(gè)大變量起的名字。 舉例準(zhǔn)備列出表名，字段，以方便下面的舉例。HELLO WORLD39。（其中，綠色字樣，是系統(tǒng)自動(dòng)顯示的，下同）與自由風(fēng)格的C語(yǔ)言不同，RPGLE中的編碼，是有一定的格式，如果寫(xiě)錯(cuò)，將會(huì)在當(dāng)前代碼行上高亮反綠顯示。HELLO WORLD39。2 程序代碼行的編寫(xiě) 最簡(jiǎn)單的RPGLE程序?yàn)楸阌诶斫?，這里寫(xiě)一個(gè)最簡(jiǎn)單的RPGLE程序CL0N01Factor1+++++++Opcodeamp。 RECORD 224。 1 簡(jiǎn)單說(shuō)明 32 程序代碼行的編寫(xiě) 3 最簡(jiǎn)單的RPGLE程序 3 舉例準(zhǔn)備 3 簡(jiǎn)單的程序流程 4 常見(jiàn)的程序流程 5 F行說(shuō)明 5 內(nèi)容說(shuō)明 5 常用例子 9 補(bǔ)充說(shuō)明 9 D行說(shuō)明 9 內(nèi)容說(shuō)明 10 常用例子 13 補(bǔ)充說(shuō)明 13 入口參數(shù) 14 C行說(shuō)明 16 寫(xiě)在前面 16 內(nèi)容說(shuō)明 16 ILE操作碼分類： 18 ILE操作碼 19 AC 19 DE 27 FN 32 OR 38 SZ 423 和程序相關(guān)的數(shù)據(jù)庫(kù)知識(shí) 48 LF（邏輯文件） 48 邏輯文件概念 48 有關(guān)編譯的問(wèn)題 48 邏輯文件對(duì)效率的影響 50 MEMBER 50 游標(biāo) 51 游標(biāo)的概念 51 不同操作碼對(duì)應(yīng)的游標(biāo)的處理 51 “有且僅有”的游標(biāo) 51 LOVAL、HIVAL對(duì)應(yīng)的游標(biāo)操作 52 事務(wù)處理 COMMIT 53 概念描述 53 使用方法 53 注意事項(xiàng) 54 關(guān)于鎖表的問(wèn)題 LCKW 544 DEBUG調(diào)試以及常見(jiàn)出錯(cuò)信息 55 寫(xiě)在前面 55 常規(guī)用法 56 程序編譯 56 執(zhí)行DEBUG命令 56 運(yùn)行程序 56 在DEBUG模式中進(jìn)行調(diào)試 56 跟蹤被當(dāng)前程序調(diào)用的程序 57 一定要退出DEBUG模式 58 補(bǔ)充 58 跟蹤批處理程序( From qingzhou) 58 常見(jiàn)的出錯(cuò)信息 59 編譯程序時(shí)的出錯(cuò)信息 59 運(yùn)行時(shí)的出錯(cuò)信息 615 CL、CMD 61 CL程序 61 基本認(rèn)識(shí) 61 CL程序的常用語(yǔ)法及命令： 62 不常用的語(yǔ)法 64 CMD 656 屏幕文件及使用 667 其它 66 報(bào)表打印 66 SAVF，備份與恢復(fù) 71 菜單MENU 72 開(kāi)發(fā)時(shí)常用的命令 73 一點(diǎn)想法 751 簡(jiǎn)單說(shuō)明內(nèi)部交流、或可作培訓(xùn)使用。對(duì)用戶作如下假定： 能COPY、修改、編譯源代碼（RPGLE、CLP），并能運(yùn)行編譯后的程序 能COPY、修改、編譯文件（PF、LF、PRTF、DSPF）； 對(duì)數(shù)據(jù)文件（PF）有簡(jiǎn)單的認(rèn)識(shí)（FIELD 224。 PF），并知道LF與PF的對(duì)應(yīng)關(guān)系。ExtFactor2+++++++Result++++++++Len++D+HiLoEq *************** Beginning of data ************************************* C 39。 DSPLY C RETURN ****************** End of data ****************************************這個(gè)程序編譯成功，并調(diào)用（CALL 程序名），就是在屏幕上反白顯示“HELLO WORL