[計(jì)算機(jī)]rpgas400程序員培訓(xùn)手冊(cè)(編輯修改稿)
2025-04-19 13:19 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 (E)} (Roll Back) 1. 基本語(yǔ)法 Factory 1 Operation Factory 2 Result ROLBK 2. 該操作碼無(wú)其它參數(shù)，就是指對(duì)事務(wù)處理進(jìn)行回滾操作。 3. ILE 程序中，ROLBK 操作可隨時(shí)進(jìn)行，也允許在沒(méi)有聲明COMMIT 類(lèi)型的文件 的情況下，仍進(jìn)行ROLBK 操作（對(duì)該進(jìn)程這前的事務(wù)進(jìn)行確認(rèn)處理）f 4. 關(guān)于日志的確認(rèn)回滾操作，在后面會(huì)另設(shè)專(zhuān)門(mén)章節(jié)講述。 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)。 當(dāng)FLD01 在FLD02 中存在時(shí)，EQ 指示器打開(kāi)，即*IN26=’1’，同時(shí)將FLD02 中的起始 位置，賦值給N； 當(dāng)FLD01 在FLD02 中不存在時(shí)，EQ 指示器保持關(guān)閉狀態(tài)，即*IN26=’0’，同時(shí)N=0 允許從FLD02 中的指定位置開(kāi)始檢查： FLD01 SCAN FLD02:2 N 26 如上句，即表示從FLD02 的第2 位，開(kāi)始掃描。 在實(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ò)。 SETGT {(E)} (Set Greater Than) 定位操作—大于 舉個(gè)例子吧，假設(shè)文件中有一個(gè)字段，是標(biāo)識(shí)順序號(hào)的，4。即該字段為1， 表示第一條記錄，該字段為2，表示第2 條記錄。那么： Factory 1 Operation Factory 2 Result HI LO EQ 2 SETGT 文件記錄格式名 READ 文件記錄格式名 這個(gè)READ 操作，READ 到的，是第3 條記錄。也就是說(shuō)，SETGT 操作碼，會(huì)將游標(biāo) 定位到大于鍵值的第一條記錄前。 在實(shí)際使用中，如果我們是按邏輯文件讀取，而且讀了一條記錄之后，對(duì)其鍵值相同的 記錄都不需要再讀取時(shí)，就可以用SETGT，不過(guò)需要注意，F(xiàn)actory 1 項(xiàng)，需要是與鍵值相 同的變量，即如果文件是使用多個(gè)字段做為鍵值，那么我們也需要先定義一個(gè)組合鍵值的變 量，然后Factory 1 處填寫(xiě)這個(gè)組合鍵值的變量名。 當(dāng)聲明文件的鍵值有多項(xiàng)時(shí)，F(xiàn)actory 1 項(xiàng)的鍵值，允許小于文件的鍵值，但順序必須 一致。即聲明的文件如果鍵值為：FHS0FHS0FHS03，那么我們?cè)诔绦蛑卸x三個(gè)類(lèi) 型與之相同的變量FLD0FLD0FLD03，以下寫(xiě)法都是有效的 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) 定位操作—小于 語(yǔ)法與SETGT 相同，含義與SETGT 不同。SETLL 操作碼，會(huì)將游標(biāo)定位到與鍵值相 等的第一條記錄之前，仍是上例，如果是 2 SETLL 文件記錄格式名 READ 文件記錄格式名 那么READ 操作碼讀到的記錄，就是第2 條記錄，看到了吧，和SETGT 不同。 SETLL 操作碼還可以用來(lái)簡(jiǎn)單判斷當(dāng)前鍵值是否存在有記錄，以PFFHSL3 為例（鍵值 為FHS0FHS02） Factory 1 Operation Factory 2 Result HI LO EQ FHSKEY KLIST KFLD FLD01 KFLD FLD02 EVAL FLD01=’01’ EVAL FLD02=’02’ FHSKEY SETLL 文件記錄格式名 44 當(dāng)文件中有相應(yīng)記錄時(shí)，EQ 指示器打開(kāi)，即*IN44=’1’ 當(dāng)文件中無(wú)相應(yīng)記錄時(shí)，EQ 指示器關(guān)閉，即*IN44=’0’（與CHAIN 正好相反，要注意） 而在這種用法中，SETLL 與CHAIN 的區(qū)別在于，CHAIN 是定位讀取了記錄，而SETLL 僅僅只是判斷該記錄是否存在。所以用SETLL 操作，不能修改記錄，也無(wú)法取出記錄的值。 只能判斷記錄是否存在。如果要修改記錄，或取出記錄的值，還需要有一個(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)
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1