2023年RPGAS400程序員培訓(xùn)手冊

2.8．4.4O--ＲON－ERＲOR(Ｏn-Error）沒用過OPEＮ{(Ｅ)}(ＯｐeｎFｉlefoｒProceｓsinｇ）打開文獻(xiàn)Factory1OperationFactoｒy２ＲesｕltＨILＯEQＯPEN文獻(xiàn)名OPEN后面的目的，必須是在當(dāng)前程序中已聲明的文獻(xiàn)名(不是文獻(xiàn)的記錄格式名),并且在OPEN操作之后,在程序結(jié)束之前之前,必須有相應(yīng)的CLＯSE操作。使用ＯPEＮ操作,文獻(xiàn)在聲明時(shí),必須使用ＵSROPN關(guān)鍵字（詳見D行說明)。ＯRｘx(Or）邏輯判斷—或Factorｙ１O(jiān)peｒationFaｃｔｏry2RｅsｕlｔHIＬOEQFLD01ＩFGTFLD03FLD0１O(jiān)REＱFLD0２等價(jià)于ＩFFLD01>FLD０3OＲFLD01=FＬD０2與ＩF、IFxx，AND、ＡNDxx類似，RＰGＬE的寫法ＯＲ,比ＲPＧ的寫法OＲxｘ要靈活,并且可以用來表達(dá)一些復(fù)雜的邏輯關(guān)系。有鑒于此，所以通常ＩＦ語句中，我會(huì)以O(shè)R為主,基本不用ORxｘ。假如在編程序方面,公司/項(xiàng)目組無硬性規(guī)定,那我覺得還是少用OＲｘx吧,總覺得這種寫法的邏輯關(guān)系看起來不直接,特別是有很復(fù)雜的ANＤ,ＯR時(shí)。OTＨER(OtｈeｒwisｅＳｅｌect）分支語句的判斷與分支語句SELECＴ一起使用，表達(dá)不符合上述所有條件時(shí)的操作,如下:Ｆactoｒy１O(jiān)peraｔionFaｃｔｏry2ReｓuｌtHILＯEQSELECTＷＨEN條件判斷1解決語句1WHEＮ條件判斷2解決語句２OTＨER解決語句３EＮDSL在這個(gè)例子中,當(dāng)滿足條件判斷1時(shí),運(yùn)營解決語句１，運(yùn)營結(jié)束后跳至ＥＮDSＬ處；假如不滿足條件判斷1,則程序繼續(xù)向下執(zhí)行，判斷是否滿足條件判斷2。當(dāng)滿足條件判斷２時(shí)，運(yùn)營解決語句2,跳至ENDSL；當(dāng)不滿足當(dāng)不滿足條件判斷２時(shí)，程序繼續(xù)向下執(zhí)下,當(dāng)讀到ＯTHEＲ操作碼時(shí)，無條件運(yùn)行解決語句3（即當(dāng)程序當(dāng)前不滿足以上所以條件判斷時(shí)，則執(zhí)行OTHＥR之后的語句。解決語句允許有很多句；條件判斷可以寫得很復(fù)雜，也允許對不同的字段進(jìn)行判斷；比如說Ｃ語言也有分支語句swｉｔch，但是這個(gè)語句只能對一個(gè)字段進(jìn)行分支判斷，IＬE語言與它不同，允許對不同的字段進(jìn)行判斷就我目前掌握的測試情況,上述的SELＥCＴ—WHEN--OTHＥR—ENDSL，其實(shí)也可以寫做：IＦ條件判斷１解決語句１ＥＬSEIF條件判斷2解決語句2EＬSE解決語句3EＮDＩF即WHEＮ與ELSEIF是類似的，這樣說,應(yīng)當(dāng)可以明白了吧?？傊?，ＳELECT—ENＤSL是一個(gè)很好用的語法,特別是在表達(dá)很多不同的分支解決時(shí)。OUT{(E)}(ＷｒｉteaDａｔａAreａ)沒用過,講數(shù)據(jù)域的。PＡRM(IdentｉfyParａmetｅrs）定義入口參數(shù)Faｃｔory１O(jiān)ｐｅｒａｔｉｏnFactｏry２ＲesultＨILOEＱR＊ENTRＹPLＩSTPARMFLＤ01關(guān)于具體內(nèi)容講解，詳見前面所說“入口參數(shù)”一章。允許做為入口參數(shù)的有：普通變量、結(jié)構(gòu)變量、數(shù)組變量關(guān)于PARM、ＰLIST,尚有一種在Faｃtory1,Ｆactoｒy2也填寫變量或指示器的用法,但是我不知道它具體表達(dá)什么意思,也不知道該怎么用。請用過的來補(bǔ)充。ＰLIＳT(IｄentifyａParameｔｅｒLｉst）同上POSＴ{(E)}(Ｐｏst)沒用過ＲEAＤ{(N|E)}(ReadａＲeｃoｒd)讀取記錄1．基本語法:Fａcｔoｒｙ1ＯpｅrationＦaｃtory2ＲesultHIＬOEＱＲEAＤ文獻(xiàn)記錄格式名4546RＥＡD后面跟的,必須是聲明的文獻(xiàn)記錄格式名;LO指示器表達(dá)鎖表指示器,當(dāng)在指定的時(shí)間(CHＧＰＦ,WAITＲCD項(xiàng)可看到),需要讀取的記錄仍被鎖，將會(huì)打開ＬO指示器,即＊ＩN45＝’1’；ＥＱ指示器為是否讀到指示器。當(dāng)未讀到任何記錄時(shí)，打開ＥＱ指示器,即＊IN４6=’１’2.當(dāng)文獻(xiàn)在程序中,是用只讀的方式聲明時(shí)，READ操作并不會(huì)導(dǎo)致鎖表;假如文獻(xiàn)在程序中是用修改的方式聲明,ＲＥＡD操作成功后,該記錄被鎖；直到執(zhí)行解鎖操作（ＵNＬOＣK,或UPＤATE),或REＡＤ該文獻(xiàn)的其它記錄，才會(huì)解鎖假如文獻(xiàn)是用修改的方式聲明，但希望ＲEAD操作不鎖表時(shí),那么就用READ(N）,即Fａctｏrｙ１O(jiān)pｅｒationＦａctory2ResultHIＬOEQREAD（N)文獻(xiàn)記錄格式名4５46這樣讀文獻(xiàn),就不會(huì)鎖記錄，但是同時(shí)也不能修改記錄。假如需要修改記錄,那么在修改之前(涉及對文獻(xiàn)字段賦值之前),還必須再對該記錄進(jìn)行一次定位操作(比如CＨＡIN、READ語句均可)。也就是說，假如要修改記錄，必須先鎖住當(dāng)前記錄(很合理吧)３.當(dāng)執(zhí)行RＥAＤ操作時(shí)，程序是根據(jù)游標(biāo)當(dāng)前在文獻(xiàn)中所指向的位置，順序讀取下一條記錄。關(guān)于游標(biāo)是如何指向，還不是一個(gè)很簡樸的問題,所以將會(huì)在下一章“數(shù)據(jù)庫相關(guān)知識(shí)”中具體講解。4．執(zhí)行RＥAD操作時(shí)，允許聲明的文獻(xiàn)沒有鍵值。（即PF文獻(xiàn))ＲEＡＤＣ{（E)}(ＲｅaｄNextChanｇedReｃorｄ)沒用過，讀下一次修改過的記錄？READE{（Ｎ｜Ｅ)}(ReaｄEqｕalKey）讀取鍵值相等的記錄語法與RＥＡD操作碼大體同樣，這里不再反復(fù)，只說不同的：假設(shè)程序中已聲明邏輯文獻(xiàn)PＦFHSL３（鍵值為FHＳ01+ＦＨＳ02)Factorｙ1Oｐerａt(yī)ioｎFactorｙ2RｅsuｌtHＩLOＥＱFＨSKEＹKLＩSTKＦLDFＬD01KFLDFＬD0２FHSKEＹSEＴＬLFMTFHSDOW１=1FHSKＥYREADEFMTFＨS１５IF＊IＮ1５=’1’LEAVEＥNDＩFEＮDDO這段話的意思，就是定義組合鍵值ＦＨSKEY，然后根據(jù)這個(gè)FHＳKEＹ在邏輯文獻(xiàn)PＦFHSL３中去定位,循環(huán)讀取PFＦＨＳL3中,FHS０1、FHS03與FLD01、FLD0２相等的記錄。當(dāng)讀取記錄結(jié)束,或鍵值不等時(shí),退出循環(huán)（＊IN１5是ＥQ指示器)。假如將READE操作碼換成READ操作碼的話（當(dāng)然，Ｆactory1處也就不能有值),就沒有“鍵值不等時(shí)退出循環(huán)”這一層意思，只是讀不到記錄時(shí)就退出循環(huán)，但有時(shí)我們使用邏輯文獻(xiàn)，僅僅是需要它的排序,而不需要讀不到鍵值相等的記錄就退出循環(huán)。所以說，使用ＲEＡD操作碼,還是READＥ操作碼,需要根據(jù)實(shí)際的規(guī)定來決定。以上的Ｆactory1處填寫值的系統(tǒng)解決，當(dāng)REAＤE操作碼在Factory1處未填寫值時(shí)，系統(tǒng)事實(shí)上是將當(dāng)前的值與讀到的上一條記錄的關(guān)鍵字進(jìn)行比較，而不是與SETLＬ時(shí)的鍵值做比較（讀第一條記錄不做比較！),假如鍵值不等時(shí)，置ＥQ指示器為1。。也就是說,假如沒有與FHSKＥＹ鍵值相同的錄,那么系統(tǒng)并不是直接找開EQ指示器,而是會(huì)一直保持正常地往下讀,直到找到與讀到的第一條記錄關(guān)鍵字不同的記錄,才會(huì)打開EＱ指示器,所以要注意。READP｛(Ｎ|E)}(ＲｅａdＰriorＲecord）讀取記錄—游標(biāo)上移簡樸來說，ＲEＡD、ＲEADE操作時(shí),游標(biāo)在數(shù)據(jù)文獻(xiàn)中，是下移的；即讀完第一條記錄,游標(biāo)指向第二條記錄;讀完第二條記錄，游標(biāo)指向第三條記錄,依此類推，直至最后一條記錄。但ＲEＡDP則正好相反,游標(biāo)是上移的，即讀完第三條記錄后,游標(biāo)指向第二條記錄；讀完第二條記錄后,游標(biāo)指向第一條記錄,直至讀完第一條記錄。一般來說，用RＥＡD、ＲEＡDＥ的概率會(huì)比READP、ＲEADPE的概率高得多,但是在某些情況下,使用ＲＥAＤP操作，又的確會(huì)很省事,這個(gè)一時(shí)間想不起例子來,大家可在編程序時(shí)多實(shí)踐。REAＤPE{(N|E）｝(ReａｄPriorEqual)雖然我沒用過,但猜想它應(yīng)當(dāng)就是指游標(biāo)上移，按鍵值去讀取文獻(xiàn)。與RＥADP的關(guān)系，就類似于REAＤE與ＲＥAD的關(guān)系。REALLOC{(E)}(Rｅ-allocateStｏｒage)沒用過ＲEL{（E)}(Rｅlｅasｅ)沒用過ＲESEＴ{(Ｅ）}(Resｅt)將數(shù)據(jù)結(jié)構(gòu)賦值成為初始值。注意是初始值,不是清空。如定義結(jié)構(gòu):DＦHSDSDSDFHS0１10IＮZ(’AＢＣD’)DFHS０25ＩNZ（’EFGH’)那么，不管對該結(jié)構(gòu)如何賦值,當(dāng)執(zhí)行語句：CＲＥSETＦHSDS之后,FHS01將會(huì)變成’AＢＣＤ,FHS0２將會(huì)變成’EFGH’,即恢復(fù)成為初始值。REＴURN{(H|M|Ｒ)}(RetｕｒntoCaｌler)ＲETURＮ是程序結(jié)束。在前面,“簡樸的程序流程”中,我們講過，“SＥTONＬR”與RETＵＲN這兩句話一起,做為程序的結(jié)束。這里,再具體解釋一下兩者之間的區(qū)別，以及關(guān)系:假如不寫REＴURＮ，只寫“ＳETONLR”,程序執(zhí)行完最后一句之后,將會(huì)再從第一句開始執(zhí)行,導(dǎo)致死循環(huán)。在簡樸的程序流程這個(gè)例子中，程序本來只想修改讀到的第一條記錄，而假如沒有REＴURN的話，將會(huì)把所有的記錄都修改掉，直到最后找不到可修改的記錄，然后系統(tǒng)報(bào)錯(cuò)，異常中斷。(這種離奇的現(xiàn)象現(xiàn)在又測試不到了,也許是當(dāng)時(shí)寫錯(cuò)程序了?把F寫成了Ｐ？不管它,當(dāng)是我寫錯(cuò)了，總之ＲＥＴUＲN是表達(dá)程序結(jié)束,沒有RETURＮ，主程序無可執(zhí)行的語句時(shí),它也會(huì)結(jié)束;假如RETURＮ出現(xiàn)在主程序的中間，那么RＥＴURＮ后面的語句將不會(huì)執(zhí)行)假如只寫ＲETＵＲN，不打開指示器*INLR,根據(jù)ｂlogｌiｏｕ所說“程序不會(huì)強(qiáng)制將內(nèi)存中的數(shù)據(jù)寫到磁盤中。400缺省的是ＢLOCＫ輸出，即數(shù)據(jù)記錄滿一個(gè)ＢLOCＫ塊時(shí)才會(huì)將這一組記錄寫到磁盤上。那么假如這時(shí)BＬOCK沒滿,數(shù)據(jù)信息不會(huì)立刻寫到磁盤上。之后有其它作業(yè)用到該文獻(xiàn),讀取的數(shù)據(jù)就不完整?！钡偃缥墨I(xiàn)有唯一鍵字,或記錄日記，必須同步寫時(shí),其實(shí)BLOＣK實(shí)際被忽略,也就是此時(shí)不會(huì)有錯(cuò)。目前我們用的是MIMIX備份，客戶事實(shí)上將所有的文獻(xiàn)都列入日記,這時(shí)不寫也不會(huì)出現(xiàn)上述錯(cuò)誤。但為避免一些潛在的問題,養(yǎng)成良好的編程風(fēng)格，建議將SＥTONＬR與REＴUＲN一同,做為程序結(jié)束的標(biāo)志。當(dāng)然，假如某個(gè)程序頻繁被調(diào)用，且不涉及文操作時(shí),可考慮不打開指示器＊ＩＮＬR,僅用REＴUＲＮ作為結(jié)束，這樣程序不會(huì)被PＵRGE出內(nèi)存,可提高調(diào)用效率。假如沒寫ＲETURＮ，也沒有打開指示器*IＮLR，在編譯時(shí),系統(tǒng)將會(huì)報(bào)40級(jí)錯(cuò)，說找不到程序結(jié)束的語句,所以大可放心。ＲOLBK｛(Ｅ)}（RｏｌlBａｃｋ）1.基本語法Faｃtoｒｙ１O(jiān)perａｔｉonFactory２RｅｓuｌtRＯLＢK2.該操作碼無其它參數(shù)，就是指對事務(wù)解決進(jìn)行回滾操作。3.ILE程序中,ＲOLBK操作可隨時(shí)進(jìn)行,也允許在沒有聲明ＣOMＭIT類型的文獻(xiàn)的情況下,仍進(jìn)行ROLBＫ操作（對該進(jìn)程這前的事務(wù)進(jìn)行確認(rèn)解決)ｆ4．關(guān)于日記的確認(rèn)回滾操作,在后面會(huì)另設(shè)專門章節(jié)講述。2.8．4.５S--ZSCAN{（E)}（ScaｎCｈaｒacterStrinｇ)掃描字符串掃描字符或字符串Factorｙ１在目的字符串Fａctory2中是否存在Ｆacｔory1OperａｔionＦacｔｏry2ResultHIＬOEQＦLD01ＳCＡＮＦLD02N２6FLD０１可以是字符,也可以是字符變量；可以是一位長,也可以是多位長。當(dāng)FLD０1在FLD０2中存在時(shí),ＥＱ指示器打開,即*IN２６=’1’，同時(shí)將FLD02中的起始位置,賦值給N；當(dāng)ＦＬD0１在FLD02中不存在時(shí)，EQ指示器保持關(guān)閉狀態(tài)，即＊IＮ２6=’０’,同時(shí)N=0允許從FLD０2中的指定位置開始檢查:ＦLD0１SCAＮFＬD０２:2N26如上句，即表達(dá)從ＦＬＤ０2的第2位，開始掃描。在實(shí)際使用中,比如說我們判斷某個(gè)字符是否為數(shù)字，就可以先定義一個(gè)0—９的常量，然后將要判斷的字符去ＳCＡN一下這個(gè)常量SELＥCＴ(BｅgｉｎaＳelectGroup)分支語句在操作碼“OTHER”中講過，為方便讀者，列出簡樸語法如下：Fａcｔory1OperatiｏnFaｃtory2ＲｅｓuｌｔHILOEＱSELＥCTＷHEN條件判斷１解決語句1WHEN條件判斷２解決語句2OTHＥR解決語句3ENＤＳL要注意,SELEＣT操作碼，必須有相應(yīng)的ENＤSL操作碼，否則編譯無法通過。SETGT｛(Ｅ)｝(SetGｒeateｒTｈａn)定位操作—大于舉個(gè)例子吧,假設(shè)文獻(xiàn)中有一個(gè)字段，是標(biāo)記順序號(hào)的,１、2、3、4。即該字段為1,表達(dá)第一條記錄，該字段為2,表達(dá)第2條記錄。那么:Fａcｔory1ＯpeｒatiｏnFａcｔｏry2ResｕltHIＬOEQ2SEＴGT文獻(xiàn)記錄格式名READ文獻(xiàn)記錄格式名這個(gè)ＲＥＡD操作，ＲEAD到的,是第3條記錄。也就是說，ＳＥTGT操作碼,會(huì)將游標(biāo)定位到大于鍵值的第一條記錄前。在實(shí)際使用中，假如我們是按邏輯文獻(xiàn)讀取，并且讀了一條記錄之后，對其鍵值相同的記錄都不需要再讀取時(shí)，就可以用SETGＴ,但是需要注意,Faｃtorｙ1項(xiàng),需要是與鍵值相同的變量,即假如文獻(xiàn)是使用多個(gè)字段做為鍵值，那么我們也需要先定義一個(gè)組合鍵值的變量,然后Fａctｏｒy１處填寫這個(gè)組合鍵值的變量名。當(dāng)聲明文獻(xiàn)的鍵值有多項(xiàng)時(shí)，F(xiàn)actory1項(xiàng)的鍵值,允許小于文獻(xiàn)的鍵值，但順序必須一致。即聲明的文獻(xiàn)假如鍵值為：FHS01、ＦHS０2、FHS03,那么我們在程序中定義三個(gè)類型與之相同的變量FＬD01、ＦLD0２、FLD03,以下寫法都是有效的FＬDKEYＫLISTKFLDFＬＤ0１KFLDFLD０2KFLDFＬD０3FLDKEＹSＥTGT文獻(xiàn)記錄格式名FLＤKＥＹKLIＳTＫＦLＤFＬＤ０1ＫＦＬDＦLD02FLＤKEYSＥTGT文獻(xiàn)記錄格式名ＦＬＤ0１SＥＴLL文獻(xiàn)記錄格式名SETLL{(E)}(SｅｔLｏwerＬimit)定位操作—小于語法與SETGT相同,含義與SETGＴ不同。ＳETＬL操作碼，會(huì)將游標(biāo)定位到與鍵值相等的第一條記錄之前，仍是上例，假如是2ＳEＴLＬ文獻(xiàn)記錄格式名RＥAD文獻(xiàn)記錄格式名那么REＡＤ操作碼讀到的記錄,就是第２條記錄，看到了吧，和SETGT不同。SETLL操作碼還可以用來簡樸判斷當(dāng)前鍵值是否存在有記錄,以ＰFFHSＬ3為例（鍵值為FHＳ0１、FHS02)Factorｙ１ＯperaｔionFactｏry2RｅsultHILOEQFHSKEYＫＬISTKFLDFLＤ0１ＫFＬＤFLＤ02ＥVALFＬD01=’01’EVALFLD02＝’02’ＦHＳＫEYＳEＴLＬ文獻(xiàn)記錄格式名44當(dāng)文獻(xiàn)中有相應(yīng)記錄時(shí),EQ指示器打開，即*ＩＮ４4=’1’當(dāng)文獻(xiàn)中無相應(yīng)記錄時(shí)，EQ指示器關(guān)閉,即*ＩＮ４４=’0’（與CHAIN正好相反，要注意)而在這種用法中，SＥTＬＬ與CHＡIN的區(qū)別在于，ＣHAIＮ是定位讀取了記錄，而ＳＥTＬＬ僅僅只是判斷該記錄是否存在。所以用SETLＬ操作，不能修改記錄,也無法取出記錄的值。只能判斷記錄是否存在。假如要修改記錄，或取出記錄的值,還需要有一個(gè)讀取定位的操作,如REAＤ,或RＥＡDＥ、READP等（最常用的,應(yīng)當(dāng)就是REＡＤ操作)SETＯＦＦ（SetIｎdｉcａt(yī)orOｆf)關(guān)閉指示器Ｆactory1OpｅratｉonFａｃtory2ReｓuｌｔＨIＬOEQSETＯFF1011１2等價(jià)于EVAL＊IN10＝’0’EＶＡL*IN１１=’０’ＥＶAL*IＮ12=’０’在SＥTOＦＦ這個(gè)操作碼中,指示器填在ＨI、LO、EQ哪里都沒關(guān)系，都是表達(dá)要被關(guān)閉的指示器SETOＮ(SetIｎdiｃaｔorOn)打開指示器Faｃtory1ＯｐerationFactoｒy2ＲeｓｕltHIＬＯＥQＳEＴO(shè)ＦF１011１2等價(jià)于EVAL*IN1０=’1’EＶAＬ*IＮ１1=’1’EＶAＬ*IN12=’1’在SETOＮ這個(gè)操作碼中，指示器填在ＨI、LO、ＥQ哪里都沒關(guān)系，都是表達(dá)要被關(guān)閉的指示器SHTＤN（ShutDown)沒用過SORＴＡ(SortanAｒray)沒用過SＱRT{（H)｝(SqｕarｅRoot)開方Ｆactory1ＯｐeratioｎFacｔｏrｙ2ResultHILOEQ9SＱRT3N這時(shí),Ｎ=３（由于３的平方為９）9、3都可以是數(shù)字型變量,或者直接是數(shù)字ＳＵB{(H）}(Suｂtｒａct)減法操作Ｆaｃtory1OperatiｏnＦａctｏry2RｅsulｔHIＬOEＱＦLD０１ＳＵBFLD０2FＬＤ03ＳUBＦＬD02ＦLD０3看過前面的ADD、MUＬT操作碼,這里不用解釋也應(yīng)當(dāng)明白是什么意思了吧。那就不多說了。SUBＤＵR｛(E）}(SｕbtractDurａt(yī)iｏｎ）日期相減1．減日期Factory１ＯpｅrａｔｉonFactoｒｙ２ReｓuｌｔHILOEＱFＬD01SUBDＵＲN：＊YＦLD02表達(dá)將日期型變量ＦLD0１減去N年,賦值到日期型變量FＬD0２中;N可以是一個(gè)數(shù)字型變量,也可以就是一個(gè)數(shù)字,N允許為負(fù)數(shù)*Y，*M,*Ｄ(尚有其它的參數(shù)值，可見ＡDDDUR,其中有具體解釋）2．判斷兩個(gè)日期型變量之間的天/月/年數(shù)Factｏry１O(jiān)ｐｅratioｎFactory2ResuｌtＨIＬＯEQFＬD01SUＢＤＵRＦＬＤ0２N:*D這時(shí)，Ｎ做為一結(jié)果變量，表達(dá)日期型變量FLD０１與FLD0２之間的天數(shù)SＵＢST{(P｜Ｅ）}(Ｓubstrｉng）取字符／字符串Fａctory1ＯｐeratiｏnＦactory2ResｕltHＩLOＥＱ２SＵBSTFLD０1:3ＦLD02表達(dá)從字段FLD０1的第３位開始,?。参唬髮R賦值到字段ＦLD02中。規(guī)定字段FLD０1的長度必須大于或等于3+2位,否則程序會(huì)報(bào)錯(cuò)?？梢試L試用%SUBＳT語句，也是等價(jià)的，如下EVALＦLD02＝％SＵBＳT(FLD01:３:2）表達(dá)的是同樣的意思。起始位數(shù)3，取的長度２,在兩種寫法之下,都可以使用數(shù)字型變量來表達(dá)。相比較之下，％SＵBSＴ尚有一種用法，就是對字符的指定位置賦值，這個(gè)就厲害了:EＶAL%SUＢST(ＦLＤ０2:3:２)＝’0１’看到了吧，這句話就是說，使字段FLD0２的第3、4位(即從第三位開始，兩位長）等于“01”TAG(Ｔag)定義標(biāo)簽,與GOＴO(shè)同用Factｏrｙ１Ｏperａt(yī)ｉｏnＦacｔoｒy2ReｓultHILOＥQFHSTAGＴAGTEST{(D|T｜Z｜E)}(TeｓｔDａt(yī)e/Time/Timestａmp)沒用過TＥSＴB(ＴestBit）沒用過TＥSＴN(ＴestNumerｉｃ)沒用過TESTZ（TesｔZｏne)沒用過ＴIMＥ(TimeofDay）－-取當(dāng)前系統(tǒng)時(shí)間Faｃtory1Operａt(yī)ionFacｔory２ＲesultHILＯEQＴIMＥＦLD0１ＦLD01可以是時(shí)間型或數(shù)字型變量UNLOＣK｛(E）｝（ＵnlｏｃｋaDaｔａＡｒeaorReｌｅasｅａRecｏrd）解鎖Faｃｔorｙ１O(jiān)perationFactorｙ2RｅｓｕｌtHILＯEQＵNLOＣK文獻(xiàn)記錄格式名UNLOCＫ是解鎖操作，在某種限度上，可以將UＮLOＣK視為ROLBK,將UPＤATE視為CＯＭMIT。即假如鎖定某條記錄,并對其字段進(jìn)行賦值之后，使用UPDATE語句,將會(huì)把修改后的結(jié)果保存下來,即修改文獻(xiàn),而UNＬOCＫ語句則不會(huì)修改文獻(xiàn),即否認(rèn)了之前對文獻(xiàn)字段做的賦值修改。從程序的執(zhí)行效率上來講，UNLOCK的執(zhí)行效率是高于UPＤATE的,由于UＰDAＴＥ操作時(shí),系統(tǒng)需要對文獻(xiàn)的每一個(gè)字段進(jìn)行確認(rèn)解決（ＤEBＵG時(shí)可以看到)，而UNLＯＣK就是簡樸的解鎖而已。UPDATE(ＭoｄifyExｉｓtingRecord)修改記錄語法與UNＬOＣK同樣。這里需要說明一下,在執(zhí)行UPDATE的時(shí)候，必須先使用REAＤ、CHAIN等操作碼鎖定一條記錄。假如未鎖住記錄,UPＤAＴE操作碼將會(huì)報(bào)錯(cuò)。當(dāng)執(zhí)行了UNLOCK、UPDATE、以及ＲOLＢK語句時(shí)，等于是解鎖，此時(shí)再執(zhí)行UPDATＥ操作碼之前，必須再次鎖住記錄操作;ＷHEN{(M|R)}(Ｗhen）分支判斷語句中的條件判斷在操作碼“OTHER”,“ＳＥLECＴ”中都講過,仍列出簡樸語法如下：Ｆaｃtory１O(jiān)ｐerationFactory2RｅsultHILOEQSELECＴWＨEN條件判斷１解決語句1WHEN條件判斷2解決語句2OＴHER解決語句3ENDSLＷＨENxx(WhｅnTrueＴｈenSeleｃｔ)上面的語法，是RＰGLＥ的語法,WHEＮxx是RPG的語法,也就是ＳＥLEＣTFＬD01WＨＥNEQFＬD02解決語句1……..這樣的語法,在表達(dá)復(fù)雜的邏輯關(guān)系時(shí),必須與AＮＤxx，OＲxx一起使用,所以我不使用WHENｘx這個(gè)操作碼。WRＩTE(CｒｅateＮeｗＲecords)寫記錄常用的方式：Fａctory1OperatｉonFactoｒｙ2ＲesuｌtHIＬＯEＱCLEAＲ文獻(xiàn)記錄格式名EＶAL文獻(xiàn)字段1＝ｘxxｘEVAＬ文獻(xiàn)字段２=ｘxxxWＲITE文獻(xiàn)記錄格式名表達(dá)在文獻(xiàn)中寫入一條新記錄。文獻(xiàn)需要聲明為可寫的。通常會(huì)在給文獻(xiàn)字段賦值之前，作一次CLEAR操作來進(jìn)行初始化，以避免不必要的麻煩。XＦOOＴ｛（H）｝(SuｍtｈeＥleｍentｓofanArｒay)沒用過,看幫助，是表達(dá)對數(shù)組字段的累加記錄。假設(shè)ＤＩMDAＴA定義為一個(gè)數(shù)字型的數(shù)組變量，F(xiàn)HS01為一個(gè)足夠大的數(shù)字型變量Fａctｏrｙ1OperationFaｃtoｒy2ResｕlｔHILOＥQXFOOTＤＩMDATＡFHS０１就表達(dá)將數(shù)組DIMDAＴA中的所有記錄的值都取出來,匯總相加，賦值到數(shù)字變量ＦHS0１中ＸＬATＥ{(P|E)}(Ｔｒａnslatｅ)將一個(gè)字符串中指定的字符，更換成此外的字符。舉例:如ＭＹCＨAR1,MYCHAR2都是兩個(gè)２0位長的字符型變量CMＯＶＥL'AＢＣAＡＡC１23＇MYCＨＡR1C'A':'９'XLＡTＥMＹCHAＲ１MＹCHAR2執(zhí)行過這個(gè)語句之后，ＭYCHＡR2就等于”9BC９９9Ｃ123’,即將字符串MＹCHAＲ1中所有的“A”都變成了“9”；XＬATE也也許指定起始位置。如上句更改為:C'Ａ':'９'XLＡTEMYCHAR１:4ＭＹCHAR2則MＹCHAR2等于“ABC９99C1２３”,指從第4位開始（含第4位)，將“Ａ”變成“9”賦值。Z-ADＤ{（H)}（ZｅroａndAdd)向數(shù)字型變量賦值Fａctory1ＯperationFacｔory2RｅｓuｌtHIＬＯＥQZ-ADDFLD01FLD０2將數(shù)字型變量FLD０1,賦值到數(shù)字型變量ＦLD02中。Z－ＡＤD、MOVE雖然同是賦值操作碼，但Z－ＡＤD的用法就遠(yuǎn)沒有MOVE那么變化多端，只能在數(shù)字型變量之間賦值。所以也沒有什么可說的了。zero