2023年RPGAS400程序員培訓手冊

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