【正文】 程SUB02； 當不滿足以上兩個條件時，執(zhí)行子過程SUB03 最后的“ENDCS”必須要有，表示條件判斷結束；但不需要SELECT。 上面這段語句，與下面這一段是等價的：Factory 1 Operation Factory 2 Result SELECT WHEN FLD01=’1’ EXSR SUB01 WHEN FLD01=’2’ EXSR SUB02 OTHER EXSR SUB03 ENDSL3. 可以看出來，CASxx這種語句，是用于邏輯判斷僅一個條件時的分支處理，這樣的寫法在代碼的閱讀上會很直觀。而當邏輯判斷大于一個條件時，這個語句就不適用了。CAT {(P)} (Concatenate Two Character Strings) 字符連接1. 基本語法：Factory 1 Operation Factory 2 Result FLD01 CAT FLD02:0 FLD03 這句話的意思，是將FLD02拼在FLD01后面，中間沒有空格，然后將拼出的結果賦值到FLD03中。 FLD02：0，表示FLD02與FLD01之間的空格數(shù)為0，依此類推 FLD02：1，就表示FLD01后面加一個空格，再拼上FLD02 FLD02：3，就表示FLD01后面加三個空格，再拼上FLD02 Factory 1項，與Factory 2項可以是字符型變量，也可以就是字符。當是字符時，需要用單引號將字符括起來2. 其實根據(jù)RPG的語法，大家應該也可以想得到，F(xiàn)actory1項如果不填值，就表示將Factory 2項的內容直接拼在Result項上，這里就不舉例了。3. 字段FLD01如果內容后面有空格，如“ABC ”，那么在CAT操作時，系統(tǒng)會自動將后面的空格截去，只取’ABC’。舉例：FLD01=’ABC ‘ （8位字符型），F(xiàn)LD02=’1’ （1位字符型），F(xiàn)LD03=’’ （8位字符型）那么，執(zhí)行了下述語句之后FLD01 CAT FLD02:0 FLD03FLD03就等于’ABC1 ’而如果執(zhí)行：FLD01 CAT FLD02:1 FLD03FLD03就等于’ABC 1 ‘ （C與1之間有一個空格）4. 表示空格個數(shù)時，可以使用數(shù)字型的變量來表達，如EVAL N=1 FLD01 CAT FLD02:N FLD035. CAT操作碼，其實也可以通過EVAL來實現(xiàn)部分。比如將FLD01與FLD02拼起來，中間無空格，賦值到FLD03中，也可以寫做：EVAL FLD03=FLD01 + FLD026. EVAL操作碼的優(yōu)勢，在于可以在一行語句中，就把多個字符拼在一起，如：EVAL FLD05=FLD01+FLD02+FLD03+FLD04 如果要用CAT寫，就要寫多行，不簡潔。7. EVAL操作碼的不足之處，在于只能進行最簡單的拼接，無法自動將字符后面的空格去除，如：FLD01=’ABC ‘ （8位字符型），F(xiàn)LD02=’1’ （1位字符型），F(xiàn)LD03=’’ （8位字符型）在執(zhí)行語句 EVAL FLD03=FLD01+FLD02后， FLD03=’ABC ‘因為FLD01是8位，F(xiàn)LD03也是8位，在操作時，不能去掉ABC后面的5位空格，此時后面再拼FLD02已無意義，所以FLD03仍是’ABC ‘CHAIN {(N | E)} (Random Retrieval from a File) 按鍵值對文件記錄進行查詢定位1. 基本語法：舉例，對邏輯文件PFFHSL1進行定位操作。邏輯文件PFFHSL1，是以FHS01為鍵值，文件記錄格式名叫FMTFHSFactory 1 Operation Factory 2 Result HI LO EQ FHS01 CHAIN FMTFHS 17 18 這個例子中，F(xiàn)HS01應該是一個與文件PFFHSL1中鍵值（FLD01）類型、長度都相等的一個字符型變量，或者字符。Factory 2項中，要填文件的記錄格式名，而不是文件名HI指示器表示是否查詢到相應記錄，查詢不成功時，打開HI指示器LO指示器表示查詢時，文件是否被鎖。文件被鎖時，打開LO指示器也就是說：*IN17=’0’，表示查詢到了目標記錄。*IN17=’1’, *IN18=’0’，表示無相應的目標記錄*IN17=’1’, *IN18=’1’， 表示查詢時，文件被鎖（不確定有沒有相應的目標記錄）2. 用修改方式聲明的文件，當查詢成功后，目標記錄被鎖定，其它程序無法以修改的方式定位到當前目標記錄上。（但可以用只讀的方式定位）3. LO指示器，僅于用修改方式聲明的文件。對于只讀方式聲明的文件其實無意義4. 如果用修改方式聲明文件，但在LO處未填寫指示器，且有程序鎖住目標記錄時，當前程序會根據(jù)PF中定義的WAITRCD(Maximum record wait time)參數(shù)，等待相應的秒數(shù)(如WAITRCD處為10，即表示鎖表時，等待10秒；如果填的是*IMMED，就表示不等待，一判斷目標記錄被鎖就結束操作)；如果在等待時間內，對方仍未解鎖，當前程序就會異常中斷退出；如果LO處填寫指示器，那么程序就不會中斷退出，且LO指示器打開。5. 當FHS01鍵值，在文件PFFHSL1中，對應有多條記錄時（即鍵值不唯一），程序將會按照文件的內部記錄號由小到大的順序，定位到符合條件的第一條記錄。6. 當一個邏輯文件，KEY值有多項時，可以使用KLIST操作碼先定義一個組合鍵值，然后再用這個組合鍵值來進行CHAIN操作。需要注意，組合鍵值中，必須每一個成員字段都與目標記錄所對應的字段相等，才能查詢成功。（所以組合鍵值，通常使用SETLL定位較多）7. 當用修改方式聲明文件，但希望進行不鎖記錄的查詢操作時，可以將CHAIN操作碼寫為CHAIN（N），這個括號（N），就表示當前的查詢定位，不對記錄進行鎖定操作（也就是用只讀的方式來處理目標記錄，所以只能取出目標記錄的信息，不能做修改；如果要修改目標記錄的話，還必須進行一個CHAIN操作）8. 這一條要特別注意：當沒有填寫HI指示器時，RPGLE是允許編譯通過的。而在某些情況之下（以前見過），運行程序時，如果CHIAN操作成功，找到了符合條件的記錄時，沒有任何問題；但如果CHAIN操作沒有找到符合條件的記錄時，實際上系統(tǒng)會按照鍵值的排序以及內部記錄號，定位到下一條記錄上，這時再取出來的數(shù)據(jù)，就統(tǒng)統(tǒng)都是下一條記錄的數(shù)據(jù)。所以，除非有絕對的把握，CHAIN操作肯定成功，否則就一定要養(yǎng)成填寫HI指示器的良好習慣。（不好意思，這里好象又寫錯了，幾經測試仍未測出這種情況，不過印象中的確出現(xiàn)過這種找到錯誤記錄的情況，可能具體情況/條件記混了）。CHECK {(E)} (Check Characters) 檢查目標變量中的字符1. 基本語法：Factory 1 Operation Factory 2 Result HI LO EQ FLD01 CHECK FLD02:2 N 42語句CHECK的意思，是指字段FLD02中，從第二位字符開始，向右查找(含第二位字符)，是否包含有FLD01中沒有的字符。如果的確有在FLD01中沒有的字符，將字符所在位置賦值到變量N中，同時打開EQ指示器；如果從第二位字開始，向右讀取的所有字符，都可以在變量FLD01中找到，那么N為0，EQ指示器處于關閉狀態(tài)。“FLD02:2”表示從變量FLD02的第二位開始，向右作比較。如果僅僅只是“FLD02”，那么就表示從變量FLD02的首位開始，向右查找2. 實例假設FLD01為8位長字符，且當前值為’12345678’而FLD02為5位長字符，且當前值為’A3456’那么執(zhí)行上述CHECK操作后，N=0， *IN42=’0’（從第二位開始，3456都存在于變量FLD01中）假設FLD01為8位長字符，且當前值為’12345678’而FLD02為5位長字符，且當前值為’34ABDC’那么執(zhí)行CHECK操作后，N=3，*IN42=’1’ (即第三位“A”，不存在于變量FLD01中)CHECKR {(E)} (Check Reverse) 反向檢查目標變量中的字符1. 基本語法：Factory 1 Operation Factory 2 Result HI LO EQ FLD01 CHECKR FLD02:3 N 42語句CHECKR的意思，是指字段FLD02中，從第三位字符開始，向左查找(含第三位字符)，是否包含有FLD01中沒有的字符。（基本與CHECK類似，所不同的，就是CHECK是自左向右的查找；而CHECKR是自右向左查找）如果有，將字符所在位置賦值到變量N中，同時打開EQ指示器；如果從第二位字開始，向左讀取的所有字符，都可以在變量FLD01中找到，那么N為0，EQ指示器處于關閉狀態(tài)。“FLD02:3”表示從變量FLD02的第三位開始，向左作比較。如果僅僅只是“FLD02”，那么就表示從變量FLD02的末位開始，向左查找2. 實例假設FLD01為8位長字符，且當前值為’12345678’而FLD02為5位長字符，且當前值為’23A56’那么執(zhí)行上述CHECK操作后，N=0， *IN42=’0’（從第三位開始，向左，23都存在于變量FLD01中）假設FLD01為8位長字符，且當前值為’12345678’而FLD02為5位長字符，且當前值為’BC3B45’那么執(zhí)行CHECK操作后，N=2，*IN42=’1’ (即第二位“C”，不存在于變量FLD01中) 3. 計算字符實際長段根據(jù)CHECKR的這個操作碼的用法，我們可以使用它來取出變量截去尾部空格后的實際長度：Factory 1 Operation Factory 2 Result HI LO EQ ‘ ‘ CHECKR FLD02 N 42 Factory 1項，是一個空格字符。N表示的意思是：從變量FLD02的尾部，向前數(shù)第一個非空格字符，在FLD02中所處的位置。那么這個N當然就是變量FLD02的實際長度；如果指示器未打開，那么說明整行都是空，實際長度為0，也沒錯。有趣吧。CLEAR (Clear) 清除內容 1. 基本語法Factory 1 Operation Factory 2 Result CLEAR 目標名 這個目標名，可以是程序中定義的結構、文件的記錄格式名。 所謂文件的記錄格式名，包括了程序中聲明的磁盤文件、打印報表文件、屏幕文件 CLEAR操作的意思，就是將目標所對應的所有變量/字段都賦上空值。2. 對結構體的清空關于結構體，后面會另設章節(jié)專門講述，這里只說明對結構體初始化清空Factory 1 Operation Factory 2 Result CLEAR *ALL 目標名CLOSE {(E)} (Close Files) 關閉文件 1. 基本語法Factory 1 Operation Factory 2 Result CLOSE 目標文件名2. CLOSE所對應的，是文件名，不是文件的記錄格式名，要注意3. CLOSE操作碼，僅適用于聲明文件時，keyword使用“USROPN”關鍵字的文件4. 每一個CLOSE的操作，在之前都必須有OPEN文件的操作。也就是，文件必須打開了之后，才能關閉。不能關閉未打開的文件5. 允許使用*ALL變量，來表達關閉所有已打開的文件：CLOSE *ALLCOMMIT {(E)} (Commit) 日志事務處理的確認操作1. 基本語法Factory 1 Operation Factory 2 Result COMMIT2. 該操作碼無其它參數(shù)，就是指對事務處理進行確認操作。3. ILE程序中，COMMIT操作可隨時進行，也允許在沒有聲明COMMIT類型的文件的情況下，仍進行COMMIT操作（對該進程這前的事務進行確認處理）f4. 關于日志的確認操作，在后面會另設專門章節(jié)講述。COMP (Compare) 比較1. 基本語法：將Factory 1與Factory 2進行比較。當Factory 1 Factory 2 時，打開HI指示器；當Factory 1 = Factory 2 時，打開LO指示器；當Factory 1 Factory 2 時，打開EQ指示器。Factory 1 Operation Factory 2 Result HI LO EQ FLD01 COMP FLD02 56 57 58 當FLD01=2，F(xiàn)LD02=1時，*IN56=’1’， *IN57=’0’, *IN58=’0’ 當FLD01=2，F(xiàn)LD02=2時，*IN56=’0’, *IN57=’0’, *IN58=’1’ 當FLD01=1，F(xiàn)LD02=2時，*IN56=’0’, *IN57=’1’, *IN58=’0’ 字符也可以進行比較，好象是按字母排序，然后將內碼相加，再比較（類似于ASCII碼一樣，不過不是特別清楚這個規(guī)律，所以一般沒用）坦白說，我覺得這個操作碼有點無聊。 DEDEALLOC {(E | N)} (Deallocate Storage) 沒用過，好象是對定