RPGAS400程序員培訓手冊

1、2.8.4.4 O-R ON-ERROR (On-Error) 沒用過 OPEN (E) (Open File for Processing) 打開文件 Factory 1 Operation Factory 2 Result HI LO EQ OPEN 文件名 OPEN 后面的目標，必須是在當前程序中已聲明的文件名（不是文件的記錄格式名）， 而且在OPEN 操作之后，在程序結(jié)束之前之前，必須有對應的CLOSE 操作。 使用OPEN 操作，文件在聲明時，必須使用USROPN 關鍵字（詳見D 行說明）。 ORxx (Or) 邏輯判斷或 Factory 1 Operation Factory 2

2、Result HI LO EQ FLD01 IFGT FLD03 FLD01 OREQ FLD02 等價于 IF FLD01FLD03 OR FLD01=FLD02 與IF、IFxx，AND、ANDxx 類似，RPGLE 的寫法OR，比RPG 的寫法ORxx 要靈活， 而且可以用來表達一些復雜的邏輯關系。有鑒于此，所以通常IF 語句中，我會以OR 為主， 基本不用ORxx。如果在編程序方面，公司/項目組無硬性要求，那我覺得還是少用ORxx 吧， 總覺得這種寫法的邏輯關系看起來不直接，尤其是有很復雜的AND,OR 時。 OTHER (Otherwise Select) 分支語句的判斷 與分支語句

3、SELECT 一起使用，表示不符合上述所有條件時的操作，如下： Factory 1 Operation Factory 2 Result HI LO EQ SELECT WHEN 條件判斷1 處理語句1 WHEN 條件判斷2 處理語句2 OTHER 處理語句3 ENDSL 在這個例子中，當滿足條件判斷1 時，運行處理語句1，運行結(jié)束后跳至ENDSL 處； 如果不滿足條件判斷1，則程序繼續(xù)向下執(zhí)行，判斷是否滿足條件判斷2。 當滿足條件判斷2 時，運行處理語句2，跳至ENDSL；當不滿足 當不滿足條件判斷2 時，程序繼續(xù)向下執(zhí)下，當讀到OTHER 操作碼時，無條件運 行處理語句3（即當程序當前不滿

4、足以上所以條件判斷時，則執(zhí)行OTHER 之后的語句。 處理語句允許有很多句； 條件判斷可以寫得很復雜，也允許對不同的字段進行判斷；比如說C 語言也有分支語 句switch，但是這個語句只能對一個字段進行分支判斷，ILE 語言與它不同，允許對不同的 字段進行判斷 就我目前掌握的測試情況，上述的SELECTWHEN-OTHERENDSL，其實也可以 寫做： IF 條件判斷1 處理語句1 ELSEIF 條件判斷2 處理語句2 ELSE 處理語句3 ENDIF 即WHEN 與ELSEIF 是類似的，這樣說，應該可以明白了吧。 總之，SELECTENDSL 是一個很好用的語法，尤其是在表示很多不同的分支

5、處理時。 OUT (E) (Write a Data Area) 沒用過，講數(shù)據(jù)域的。 PARM (Identify Parameters) 定義入口參數(shù) Factory 1 Operation Factory 2 Result HI LO EQR *ENTRY PLIST PARM FLD01 關于具體內(nèi)容講解，詳見前面所說“入口參數(shù)”一章。 允許做為入口參數(shù)的有：普通變量、結(jié)構(gòu)變量、數(shù)組變量 關于PARM、PLIST，還有一種在Factory 1， Factory 2 也填寫變量或指示器的用 法，不過我不知道它具體表示什么意思，也不知道該怎么用。請用過的來補充。 PLIST (Identi

6、fy a Parameter List) 同上 POST (E) (Post) 沒用過 READ (N | E) (Read a Record) 讀取記錄 1. 基本語法： Factory 1 Operation Factory 2 Result HI LO EQ READ 文件記錄格式名 45 46 READ后面跟的，必須是聲明的文件記錄格式名； LO 指示器表示鎖表指示器，當在指定的時間（CHGPF，WAITRCD 項可看到）， 需要讀取的記錄仍被鎖，將會打開LO 指示器，即*IN45=1； EQ指示器為是否讀到指示器。當未讀到任何記錄時，打開EQ 指示器，即*IN46=1 2. 當文件在

7、程序中，是用只讀的方式聲明時，READ 操作并不會造成鎖表； 如果文件在程序中是用修改的方式聲明，READ 操作成功后，該記錄被鎖；直到執(zhí) 行解鎖操作（UNLOCK，或UPDATE），或READ 該文件的其它記錄，才會解鎖 如果文件是用修改的方式聲明，但希望READ 操作不鎖表時，那么就用READ（N）， 即 Factory 1 Operation Factory 2 Result HI LO EQ READ(N) 文件記錄格式名 45 46 這樣讀文件，就不會鎖記錄，但是同時也不能修改記錄。如果需要修改記錄，那么 在修改之前（包括對文件字段賦值之前），還必須再對該記錄進行一次定位操作（比如

8、CHAIN、READ 語句均可）。也就是說，如果要修改記錄，必須先鎖住當前記錄（很合 理吧） 3. 當執(zhí)行READ 操作時，程序是根據(jù)游標當前在文件中所指向的位置，順序讀取下 一條記錄。關于游標是如何指向，還不是一個很簡單的問題，所以將會在下一章“數(shù) 據(jù)庫相關知識”中具體講解。 4. 執(zhí)行READ 操作時，允許聲明的文件沒有鍵值。（即PF 文件） READC (E) (Read Next Changed Record) 沒用過，讀下一次修改過的記錄？ READE (N | E) (Read Equal Key) 讀取鍵值相等的記錄 語法與READ 操作碼大致一樣，這里不再重復，只說不同的： 假

9、設程序中已聲明邏輯文件PFFHSL3（鍵值為FHS01+FHS02） Factory 1 Operation Factory 2 Result HI LO EQ FHSKEY KLIST KFLD FLD01 KFLD FLD02 FHSKEY SETLL FMTFHS DOW 1=1 FHSKEY READE FMTFHS 15 IF *IN15=1 LEAVE ENDIF ENDDO 這段話的意思，就是定義組合鍵值FHSKEY，然后根據(jù)這個FHSKEY 在邏輯文件 PFFHSL3 中去定位，循環(huán)讀取PFFHSL3 中，F(xiàn)HS01、FHS03 與FLD01、FLD02 相等的記 錄。當讀取記

10、錄結(jié)束，或鍵值不等時，退出循環(huán)（*IN15 是EQ 指示器）。如果將READE 操 作碼換成READ 操作碼的話（當然，F(xiàn)actory 1 處也就不能有值），就沒有“鍵值不等時退出 循環(huán)”這一層意思，只是讀不到記錄時就退出循環(huán)，但有時我們使用邏輯文件，僅僅是需要 它的排序，而不需要讀不到鍵值相等的記錄就退出循環(huán)。所以說，使用READ 操作碼，還 是READE 操作碼，需要根據(jù)實際的要求來決定。 以上的Factory 1 處填寫值的系統(tǒng)處理，當READE 操作碼在Factory 1 處未填寫值時， 系統(tǒng)實際上是將當前的值與讀到的上一條記錄的關鍵字進行比較，而不是與SETLL 時的鍵 值做比較（讀

11、第一條記錄不做比較?。?，如果鍵值不等時，置EQ 指示器為1。也就是說， 如果沒有與FHSKEY 鍵值相同的錄，那么系統(tǒng)并不是直接找開EQ 指示器，而是會一直保 持正常地往下讀，直到找到與讀到的第一條記錄關鍵字不同的記錄，才會打開EQ 指示器， 所以要注意。 READP (N | E) (Read Prior Record) 讀取記錄游標上移 簡單來說，READ、READE 操作時，游標在數(shù)據(jù)文件中，是下移的；即讀完第一條記 錄，游標指向第二條記錄；讀完第二條記錄，游標指向第三條記錄，依此類推，直至最后一 條記錄。但READP 則正好相反，游標是上移的，即讀完第三條記錄后，游標指向第二條記 錄；

12、讀完第二條記錄后，游標指向第一條記錄，直至讀完第一條記錄。 一般來說，用READ、READE 的概率會比READP、READPE 的概率高得多，不過在 某些情況下，使用READP 操作，又的確會很省事，這個一時間想不起例子來，大家可在編 程序時多實踐。 READPE (N | E) (Read Prior Equal) 雖然我沒用過，但猜想它應該就是指游標上移，按鍵值去讀取文件。與READP 的關系， 就類似于READE 與READ 的關系。 REALLOC (E) (Re-allocate Storage) 沒用過 REL (E) (Release) 沒用過 RESET (E) (Reset

13、) 將數(shù)據(jù)結(jié)構(gòu)賦值成為初始值。 注意是初始值，不是清空。 如定義結(jié)構(gòu)： D FHSDS DS D FHS01 10 INZ（ABCD） D FHS02 5 INZ（EFGH） 那么，不管對該結(jié)構(gòu)如何賦值，當執(zhí)行語句： C RESET FHSDS 之后，F(xiàn)HS01 將會變成ABCD，F(xiàn)HS02 將會變成EFGH，即恢復成為初始值。 RETURN (H | M | R) (Return to Caller) RETURN 是程序結(jié)束。 在前面，“簡單的程序流程”中，我們講過，“SETON LR” 與RETURN 這兩句話一 起，做為程序的結(jié)束。這里，再詳細解釋一下兩者之間的區(qū)別，以及關系： 如果不

14、寫RETURN，只寫“SETON LR”，程序執(zhí)行完最后一句之后，將會再從第一 句開始執(zhí)行，造成死循環(huán)。在簡單的程序流程這個例子中，程序原來只想修改讀到的第一條 記錄，而如果沒有RETURN 的話，將會把所有的記錄都修改掉，直到最后找不到可修改的 記錄，然后系統(tǒng)報錯，異常中斷。（這種離奇的現(xiàn)象現(xiàn)在又測試不到了，可能是當時寫錯程 序了？把F 寫成了P？不管它，當是我寫錯了，總之RETURN 是表示程序結(jié)束，沒有 RETURN，主程序無可執(zhí)行的語句時，它也會結(jié)束；如果RETURN 出現(xiàn)在主程序的中間， 那么RETURN 后面的語句將不會執(zhí)行） 如果只寫RETURN，不打開指示器*INLR，根據(jù)bl

15、ogliou 所說 “程序不會強制將內(nèi)存 中的數(shù)據(jù)寫到磁盤中。400 缺省的是BLOCK 輸出，即數(shù)據(jù)記錄滿一個BLOCK 塊時才會將 這一組記錄寫到磁盤上。那么如果這時BLOCK 沒滿，數(shù)據(jù)信息不會立刻寫到磁盤上。之后 有其它作業(yè)用到該文件，讀取的數(shù)據(jù)就不完整?！?但如果文件有唯一鍵字，或記錄日志，必須同步寫時，其實BLOCK 實際被忽略，也就 是此時不會有錯。目前我們用的是MIMIX 備份，客戶實際上將所有的文件都列入日志，這 時不寫也不會出現(xiàn)上述錯誤。但為避免一些潛在的問題，養(yǎng)成良好的編程風格，建議將 SETON LR 與RETURN 一同，做為程序結(jié)束的標志。當然，如果某個程序頻繁被調(diào)

16、用，且 不涉及文 操作時，可考慮不打開指示器*INLR，僅用RETURN 作為結(jié)束，這樣程序不 會被PURGE 出內(nèi)存，可提高調(diào)用效率。 如果沒寫RETURN，也沒有打開指示器*INLR，在編譯時，系統(tǒng)將會報40 級錯，說找 不到程序結(jié)束的語句，所以大可放心。 ROLBK (E) (Roll Back) 1. 基本語法 Factory 1 Operation Factory 2 Result ROLBK 2. 該操作碼無其它參數(shù)，就是指對事務處理進行回滾操作。 3. ILE 程序中，ROLBK 操作可隨時進行，也允許在沒有聲明COMMIT 類型的文件 的情況下，仍進行ROLBK 操作（對該進程

17、這前的事務進行確認處理）f 4. 關于日志的確認回滾操作，在后面會另設專門章節(jié)講述。 2.8.4.5 S-Z SCAN (E) (Scan Character String) 掃描字符串 掃描字符或字符串Factory 1 在目標字符串Factory 2 中是否存在 Factory 1 Operation Factory 2 Result HI LO EQ FLD01 SCAN FLD02 N 26 FLD01 可以是字符，也可以是字符變量；可以是一位長，也可以是多位長。 當FLD01 在FLD02 中存在時，EQ 指示器打開，即*IN26=1，同時將FLD02 中的起始 位置，賦值給N； 當

18、FLD01 在FLD02 中不存在時，EQ 指示器保持關閉狀態(tài)，即*IN26=0，同時N=0 允許從FLD02 中的指定位置開始檢查： FLD01 SCAN FLD02:2 N 26 如上句，即表示從FLD02 的第2 位，開始掃描。 在實際使用中，比如說我們判斷某個字符是否為數(shù)字，就可以先定義一個09 的常量， 然后將要判斷的字符去SCAN 一下這個常量 SELECT (Begin a Select Group) 分支語句 在操作碼“OTHER”中講過，為方便讀者，列出簡單語法如下： Factory 1 Operation Factory 2 Result HI LO EQ SELECT W

19、HEN 條件判斷1 處理語句1 WHEN 條件判斷2 處理語句2 OTHER 處理語句3 ENDSL 要注意，SELECT 操作碼，必須有對應的ENDSL 操作碼，否則編譯無法通過。 SETGT (E) (Set Greater Than) 定位操作大于 舉個例子吧，假設文件中有一個字段，是標識順序號的，1、2、3、4。即該字段為1， 表示第一條記錄，該字段為2，表示第2 條記錄。那么： Factory 1 Operation Factory 2 Result HI LO EQ 2 SETGT 文件記錄格式名 READ 文件記錄格式名 這個READ 操作，READ 到的，是第3 條記錄。也就是

20、說，SETGT 操作碼，會將游標 定位到大于鍵值的第一條記錄前。 在實際使用中，如果我們是按邏輯文件讀取，而且讀了一條記錄之后，對其鍵值相同的 記錄都不需要再讀取時，就可以用SETGT，不過需要注意，F(xiàn)actory 1 項，需要是與鍵值相 同的變量，即如果文件是使用多個字段做為鍵值，那么我們也需要先定義一個組合鍵值的變 量，然后Factory 1 處填寫這個組合鍵值的變量名。 當聲明文件的鍵值有多項時，F(xiàn)actory 1 項的鍵值，允許小于文件的鍵值，但順序必須 一致。即聲明的文件如果鍵值為：FHS01、FHS02、FHS03，那么我們在程序中定義三個類 型與之相同的變量FLD01、FLD02

21、、FLD03，以下寫法都是有效的 FLDKEY KLIST KFLD FLD01 KFLD FLD02 KFLD FLD03 FLDKEY SETGT 文件記錄格式名 FLDKEY KLIST KFLD FLD01 KFLD FLD02 FLDKEY SETGT 文件記錄格式名 FLD01 SETLL 文件記錄格式名 SETLL (E) (Set Lower Limit) 定位操作小于 語法與SETGT 相同，含義與SETGT 不同。SETLL 操作碼，會將游標定位到與鍵值相 等的第一條記錄之前，仍是上例，如果是 2 SETLL 文件記錄格式名 READ 文件記錄格式名 那么READ 操作碼讀

22、到的記錄，就是第2 條記錄，看到了吧，和SETGT 不同。 SETLL 操作碼還可以用來簡單判斷當前鍵值是否存在有記錄，以PFFHSL3 為例（鍵值 為FHS01、FHS02） Factory 1 Operation Factory 2 Result HI LO EQ FHSKEY KLIST KFLD FLD01 KFLD FLD02 EVAL FLD01=01 EVAL FLD02=02 FHSKEY SETLL 文件記錄格式名 44 當文件中有相應記錄時，EQ 指示器打開，即*IN44=1 當文件中無相應記錄時，EQ 指示器關閉，即*IN44=0（與CHAIN 正好相反，要注意） 而在這

23、種用法中，SETLL 與CHAIN 的區(qū)別在于，CHAIN 是定位讀取了記錄，而SETLL 僅僅只是判斷該記錄是否存在。所以用SETLL 操作，不能修改記錄，也無法取出記錄的值。 只能判斷記錄是否存在。如果要修改記錄，或取出記錄的值，還需要有一個讀取定位的操作， 如READ，或READE、READP 等（最常用的，應該就是READ 操作） SETOFF (Set Indicator Off) 關閉指示器 Factory 1 Operation Factory 2 Result HI LO EQ SETOFF 10 11 12 等價于 EVAL *IN10=0 EVAL *IN11=0 EVAL

24、 *IN12=0 在SETOFF 這個操作碼中，指示器填在HI、LO、EQ 哪里都沒關系，都是表示要被關 閉的指示器 SETON (Set Indicator On) 打開指示器 Factory 1 Operation Factory 2 Result HI LO EQ SETOFF 10 11 12 等價于 EVAL *IN10=1 EVAL *IN11=1 EVAL *IN12=1 在SETON 這個操作碼中，指示器填在HI、LO、EQ 哪里都沒關系，都是表示要被關閉 的指示器 SHTDN (Shut Down) 沒用過 SORTA (Sort an Array) 沒用過 SQRT (H)

25、 (Square Root) 開方 Factory 1 Operation Factory 2 Result HI LO EQ 9 SQRT 3 N 這時，N=3（因為3 的平方為9） 9、3 都可以是數(shù)字型變量，或者直接是數(shù)字 SUB (H) (Subtract) 減法操作 Factory 1 Operation Factory 2 Result HI LO EQ FLD01 SUB FLD02 FLD03 SUB FLD02 FLD03 看過前面的ADD、MULT 操作碼，這里不用解釋也應該明白是什么意思了吧。那就不 多說了。 SUBDUR (E) (Subtract Duration)

26、日期相減 1. 減日期 Factory 1 Operation Factory 2 Result HI LO EQ FLD01 SUBDUR N:*Y FLD02 表示將日期型變量FLD01 減去N 年，賦值到日期型變量FLD02 中； N 可以是一個數(shù)字型變量，也可以就是一個數(shù)字，N 允許為負數(shù) *Y，*M，*D（還有其它的參數(shù)值，可見ADDDUR，其中有詳細解釋） 2. 判斷兩個日期型變量之間的天/月/年數(shù) Factory 1 Operation Factory 2 Result HI LO EQ FLD01 SUBDUR FLD02 N:*D 這時，N 做為一結(jié)果變量，表示日期型變量FL

27、D01 與FLD02 之間的天數(shù) SUBST (P | E) (Substring) 取字符/字符串 Factory 1 Operation Factory 2 Result HI LO EQ 2 SUBST FLD01:3 FLD02 表示從字段FLD01 的第3 位開始，取2 位，左對齊賦值到字段FLD02 中。 要求字段FLD01 的長度必須大于或等于3+2 位，否則程序會報錯。 可以嘗試用%SUBST 語句，也是等價的，如下 EVAL FLD02=%SUBST(FLD01:3:2) 表示的是同樣的意思。 起始位數(shù)3，取的長度2，在兩種寫法之下，都可以使用數(shù)字型變量來表達。 相比較之下，

28、%SUBST 還有一種用法，就是對字符的指定位置賦值，這個就厲害了： EVAL %SUBST(FLD02:3:2)=01 看到了吧，這句話就是說，使字段FLD02 的第3、4 位（即從第三位開始，兩位長）等 于“01” TAG (Tag) 定義標簽，與GOTO 同用 Factory 1 Operation Factory 2 Result HI LO EQ FHSTAG TAG TEST (D | T | Z | E) (Test Date/Time/Timestamp) 沒用過 TESTB (Test Bit) 沒用過 TESTN (Test Numeric) 沒用過 TESTZ (Test

29、 Zone) 沒用過 TIME (Time of Day) -取當前系統(tǒng)時間 Factory 1 Operation Factory 2 Result HI LO EQ TIME FLD01 FLD01 可以是時間型或數(shù)字型變量 UNLOCK (E) (Unlock a Data Area or Release a Record) 解鎖 Factory 1 Operation Factory 2 Result HI LO EQ UNLOCK 文件記錄格式名 UNLOCK 是解鎖操作，在某種程度上，可以將UNLOCK 視為ROLBK，將UPDATE 視為COMMIT。即如果鎖定某條記錄，并對其字

30、段進行賦值之后，使用UPDATE 語句，將 會把修改后的結(jié)果保存下來，即修改文件，而UNLOCK 語句則不會修改文件，即否認了之 前對文件字段做的賦值修改。 從程序的執(zhí)行效率上來講，UNLOCK 的執(zhí)行效率是高于UPDATE 的，因為UPDATE 操作時，系統(tǒng)需要對文件的每一個字段進行確認處理(DEBUG 時可以看到)，而UNLOCK 就 是簡單的解鎖而已。 UPDATE (Modify Existing Record) 修改記錄 語法與UNLOCK 一樣。 這里需要說明一下，在執(zhí)行UPDATE 的時候，必須先使用READ、CHAIN 等操作碼鎖 定一條記錄。如果未鎖住記錄，UPDATE 操作

31、碼將會報錯。當執(zhí)行了UNLOCK、UPDATE、 以及ROLBK 語句時，等于是解鎖，此時再執(zhí)行UPDATE 操作碼之前，必須再次鎖住記錄 操作； WHEN (M | R) (When) 分支判斷語句中的條件判斷 在操作碼“OTHER”，“SELECT”中都講過，仍列出簡單語法如下： Factory 1 Operation Factory 2 Result HI LO EQ SELECT WHEN 條件判斷1 處理語句1 WHEN 條件判斷2 處理語句2 OTHER 處理語句3 ENDSL WHENxx (When True Then Select) 上面的語法，是RPGLE 的語法，WHEN

32、xx 是RPG 的語法，也就是 SELECT FLD01 WHENEQ FLD02 處理語句1 . 這樣的語法，在表達復雜的邏輯關系時，必須與ANDxx，ORxx 一起使用，所以我不 使用WHENxx 這個操作碼。 WRITE (Create New Records) 寫記錄 常用的方式： Factory 1 Operation Factory 2 Result HI LO EQ CLEAR 文件記錄格式名 EVAL 文件字段1=xxxx EVAL 文件字段2=xxxx WRITE 文件記錄格式名 表示在文件中寫入一條新記錄。文件需要聲明為可寫的。 通常會在給文件字段賦值之前，作一次CLEAR

33、 操作來進行初始化，以避免不必要 的麻煩。 XFOOT (H) (Sum the Elements of an Array) 沒用過，看幫助，是表示對數(shù)組字段的累加統(tǒng)計。 假設DIMDATA 定義為一個數(shù)字型的數(shù)組變量，F(xiàn)HS01 為一個足夠大的數(shù)字型變量 Factory 1 Operation Factory 2 Result HI LO EQ XFOOT DIMDATA FHS01 就表示將數(shù)組DIMDATA 中的所有記錄的值都取出來，匯總相加，賦值到數(shù)字變量 FHS01 中 XLATE (P | E) (Translate) 將一個字符串中指定的字符，更換成另外的字符。 舉例：如MYCH

34、AR1， MYCHAR2 都是兩個20 位長的字符型變量 C MOVEL ABCAAAC123 MYCHAR1 C A:9 XLATE MYCHAR1 MYCHAR2 執(zhí)行過這個語句之后，MYCHAR2 就等于”9BC999C123，即將字符串MYCHAR1 中所 有的“A”都變成了“9”； XLATE 也可能指定起始位置。如上句更改為： C A:9 XLATE MYCHAR1：4 MYCHAR2 則MYCHAR2 等于“ABC999C123”，指從第4 位開始（含第4 位），將“A”變成“9” 賦值。 Z-ADD (H) (Zero and Add) 向數(shù)字型變量賦值 Factory 1 Operation Factory 2 Result HI LO EQ Z-ADD FLD01 FLD02 將數(shù)字型變量FLD01，賦值到數(shù)字型變量FLD02 中。 Z-ADD、MOVE 雖然同是賦值操作碼，但Z-ADD 的用法就遠沒有MOVE 那么變化多 端，只能在數(shù)字型變量之間賦值。所以也沒有什么可說的了。zero 如果要對