【正文】 01=’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，就表示不等待，一判斷目標記錄被鎖就結(jié)束操作)；如果在等待時間內(nèi)，對方仍未解鎖，當前程序就會異常中斷退出；如果LO處填寫指示器，那么程序就不會中斷退出，且LO指示器打開。5. 當FHS01鍵值，在文件PFFHSL1中，對應有多條記錄時（即鍵值不唯一），程序?qū)凑瘴募膬?nèi)部記錄號由小到大的順序，定位到符合條件的第一條記錄。6. 當一個邏輯文件，KEY值有多項時，可以使用KLIST操作碼先定義一個組合鍵值，然后再用這個組合鍵值來進行CHAIN操作。需要注意，組合鍵值中，必須每一個成員字段都與目標記錄所對應的字段相等，才能查詢成功。（所以組合鍵值，通常使用SETLL定位較多）7. 當用修改方式聲明文件，但希望進行不鎖記錄的查詢操作時，可以將CHAIN操作碼寫為CHAIN（N），這個括號（N），就表示當前的查詢定位，不對記錄進行鎖定操作（也就是用只讀的方式來處理目標記錄，所以只能取出目標記錄的信息，不能做修改；如果要修改目標記錄的話，還必須進行一個CHAIN操作）8. 這一條要特別注意：當沒有填寫HI指示器時，RPGLE是允許編譯通過的。而在運行程序時，如果CHIAN操作成功，找到了符合條件的記錄時，沒有任何問題；但如果CHAIN操作沒有找到符合條件的記錄時，實際上系統(tǒng)會按照鍵值的排序以及內(nèi)部記錄號，定位到下一條記錄上，這時再取出來的數(shù)據(jù)，就統(tǒng)統(tǒng)都是下一條記錄的數(shù)據(jù)。所以，除非有絕對的把握，CHAIN操作肯定成功，否則就一定要養(yǎng)成填寫HI指示器的良好習慣。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)?！癋LD02: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)?！癋LD02: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) 清除內(nèi)容 1. 基本語法Factory 1 Operation Factory 2 Result CLEAR 目標名 這個目標名，可以是程序中定義的結(jié)構(gòu)、文件的記錄格式名。 所謂文件的記錄格式名，包括了程序中聲明的磁盤文件、打印報表文件、屏幕文件 CLEAR操作的意思，就是將目標所對應的所有變量/字段都賦上空值。2. 對結(jié)構(gòu)體的清空關于結(jié)構(gòu)體，后面會另設章節(jié)專門講述，這里只說明對結(jié)構(gòu)體初始化清空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’ 字符也可以進行比較，好象是按字母排序，然后將內(nèi)碼相加，再比較（類似于ASCII碼一樣，不過不是特別清楚這個規(guī)律，所以一般沒用）坦白說，我覺得這個操作碼有點無聊。 DEDEALLOC {(E | N)} (Deallocate Storage) 沒用過，好象是對定義的指針型變量，對其分配地址空間之后，用這個操作碼可以回收空間。DEFINE (Field Definition) 根據(jù)已知的字段，來定義新字段，如下：Factory 1 Operation Factory 2 Result HI LO EQ *LIKE DEFINE FLD01 FLD02 這句話的意思，就是說“象定義字段FLD01一樣，定義字段FLD02的類型、長度” 這個字段FLD01，必須是個已定義的字段/變量。DELETE {(E)} (Delete Record) 刪除當前記錄，語法如下：Factory 1 Operation Factory 2 Result HI LO EQ DELETE 文件記錄格式名 這里，在做DELETE操作前，必須先定位到具體的記錄上（使用CHAIN、READ等語句）；同時，文件在F行必須使用修改的方式來聲明。 當文件定位到目標記錄時，目標記錄會被鎖定，此時，目標記錄無法被其它程序修改；如果執(zhí)行了DELETE操作，自然會解鎖，不過別的程序也找不到目標記錄了（因為被刪除）實際使用中，通常并不會對文件中的記錄進行物理刪除，而是修改某個標識狀態(tài)的字段的值，所以使用這條命令要慎重。DIV {(H)} (Divide) 數(shù)學運算—除DIV操作碼，表示數(shù)學運算的“除”，常與操作碼MVR一起來使用。Factory 1 Operation Factory 2 Result HI LO EQ FLD01 DIV FLD02 N MVR M 上面兩句話的意思，是說，用FLD01來除FLD02，將商賦值到變量N中，將余數(shù)，賦值到變量M中。(N，M都是數(shù)字型變量) 再具體一點，如果FLD01 = 10, FLD02 = 3，執(zhí)行完這兩句操作碼之后 N = 3 （10 / 3的商） M = 1 （10 / 3的余數(shù)）DO (Do) 循環(huán) 我最常用的循環(huán)方法之一，適用于已知