rpgas400程序員培訓(xùn)手冊(cè)-文庫(kù)吧資料
2025-07-01 07:25本頁(yè)面
【正文】 D02 N:*D 這時(shí)，N 做為一結(jié)果變量，表示日期型變量FLD01 與FLD02 之間的天數(shù) SUBST {(P | E)} (Substring) 取字符/字符串 Factory 1 Operation Factory 2 Result HI LO EQ 2 SUBST FLD01:3 FLD02 表示從字段FLD01 的第3 位開(kāi)始，取2 位，左對(duì)齊賦值到字段FLD02 中。如果要修改記錄，或取出記錄的值，還需要有一個(gè)讀取定位的操作， 如READ，或READE、READP 等（最常用的，應(yīng)該就是READ 操作） SETOFF (Set Indicator Off) 關(guān)閉指示器 Factory 1 Operation Factory 2 Result HI LO EQ SETOFF 10 11 12 等價(jià)于 EVAL *IN10=’0’ EVAL *IN11=’0’ EVAL *IN12=’0’ 在SETOFF 這個(gè)操作碼中，指示器填在HI、LO、EQ 哪里都沒(méi)關(guān)系，都是表示要被關(guān) 閉的指示器 SETON (Set Indicator On) 打開(kāi)指示器 Factory 1 Operation Factory 2 Result HI LO EQ SETOFF 10 11 12 等價(jià)于 EVAL *IN10=’1’ EVAL *IN11=’1’ EVAL *IN12=’1’ 在SETON 這個(gè)操作碼中，指示器填在HI、LO、EQ 哪里都沒(méi)關(guān)系，都是表示要被關(guān)閉 的指示器 SHTDN (Shut Down) 沒(méi)用過(guò) SORTA (Sort an Array) 沒(méi)用過(guò) SQRT {(H)} (Square Root) 開(kāi)方 Factory 1 Operation Factory 2 Result HI LO EQ 9 SQRT 3 N 這時(shí)，N=3（因?yàn)? 的平方為9） 3 都可以是數(shù)字型變量，或者直接是數(shù)字 SUB {(H)} (Subtract) 減法操作 Factory 1 Operation Factory 2 Result HI LO EQ FLD01 SUB FLD02 FLD03 SUB FLD02 FLD03 看過(guò)前面的ADD、MULT 操作碼，這里不用解釋也應(yīng)該明白是什么意思了吧。所以用SETLL 操作，不能修改記錄，也無(wú)法取出記錄的值。SETLL 操作碼，會(huì)將游標(biāo)定位到與鍵值相 等的第一條記錄之前，仍是上例，如果是 2 SETLL 文件記錄格式名 READ 文件記錄格式名 那么READ 操作碼讀到的記錄，就是第2 條記錄，看到了吧，和SETGT 不同。 當(dāng)聲明文件的鍵值有多項(xiàng)時(shí)，F(xiàn)actory 1 項(xiàng)的鍵值，允許小于文件的鍵值，但順序必須 一致。也就是說(shuō)，SETGT 操作碼，會(huì)將游標(biāo) 定位到大于鍵值的第一條記錄前。即該字段為1， 表示第一條記錄，該字段為2，表示第2 條記錄。 在實(shí)際使用中，比如說(shuō)我們判斷某個(gè)字符是否為數(shù)字，就可以先定義一個(gè)0—9 的常量， 然后將要判斷的字符去SCAN 一下這個(gè)常量 SELECT (Begin a Select Group) 分支語(yǔ)句 在操作碼“OTHER”中講過(guò)，為方便讀者，列出簡(jiǎn)單語(yǔ)法如下： Factory 1 Operation Factory 2 Result HI LO EQ SELECT WHEN 條件判斷1 處理語(yǔ)句1 WHEN 條件判斷2 處理語(yǔ)句2 OTHER 處理語(yǔ)句3 ENDSL 要注意，SELECT 操作碼，必須有對(duì)應(yīng)的ENDSL 操作碼，否則編譯無(wú)法通過(guò)。 SZ SCAN {(E)} (Scan Character String) 掃描字符串 掃描字符或字符串Factory 1 在目標(biāo)字符串Factory 2 中是否存在 Factory 1 Operation Factory 2 Result HI LO EQ FLD01 SCAN FLD02 N 26 FLD01 可以是字符，也可以是字符變量；可以是一位長(zhǎng)，也可以是多位長(zhǎng)。 ROLBK {(E)} (Roll Back) 1. 基本語(yǔ)法 Factory 1 Operation Factory 2 Result ROLBK 2. 該操作碼無(wú)其它參數(shù)，就是指對(duì)事務(wù)處理進(jìn)行回滾操作。當(dāng)然，如果某個(gè)程序頻繁被調(diào)用，且 不涉及文 操作時(shí)，可考慮不打開(kāi)指示器*INLR，僅用RETURN 作為結(jié)束，這樣程序不 會(huì)被PURGE 出內(nèi)存，可提高調(diào)用效率。目前我們用的是MIMIX 備份，客戶實(shí)際上將所有的文件都列入日志，這 時(shí)不寫也不會(huì)出現(xiàn)上述錯(cuò)誤。之后 有其它作業(yè)用到該文件，讀取的數(shù)據(jù)就不完整。400 缺省的是BLOCK 輸出，即數(shù)據(jù)記錄滿一個(gè)BLOCK 塊時(shí)才會(huì)將 這一組記錄寫到磁盤上。在簡(jiǎn)單的程序流程這個(gè)例子中，程序原來(lái)只想修改讀到的第一條 記錄，而如果沒(méi)有RETURN 的話，將會(huì)把所有的記錄都修改掉，直到最后找不到可修改的 記錄，然后系統(tǒng)報(bào)錯(cuò)，異常中斷。 在前面，“簡(jiǎn)單的程序流程”中，我們講過(guò)，“SETON LR” 與RETURN 這兩句話一 起，做為程序的結(jié)束。 如定義結(jié)構(gòu)： D FHSDS DS D FHS01 10 INZ（’ABCD’） D FHS02 5 INZ（’EFGH’） 那么，不管對(duì)該結(jié)構(gòu)如何賦值，當(dāng)執(zhí)行語(yǔ)句： C RESET FHSDS 之后，F(xiàn)HS01 將會(huì)變成’ABCD，F(xiàn)HS02 將會(huì)變成’EFGH’，即恢復(fù)成為初始值。 REALLOC {(E)} (Reallocate Storage) 沒(méi)用過(guò)
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1