【正文】 ，F(xiàn)LD03=’’ （8位字符型）那么，執(zhí)行了下述語(yǔ)句之后FLD01 CAT FLD02:0 FLD03FLD03就等于’ABC1 ’而如果執(zhí)行：FLD01 CAT FLD02:1 FLD03FLD03就等于’ABC 1 ‘ （C與1之間有一個(gè)空格）4. 表示空格個(gè)數(shù)時(shí)，可以使用數(shù)字型的變量來(lái)表達(dá)，如EVAL N=1 FLD01 CAT FLD02:N FLD035. CAT操作碼，其實(shí)也可以通過(guò)EVAL來(lái)實(shí)現(xiàn)部分。CAT {(P)} (Concatenate Two Character Strings) 字符連接1. 基本語(yǔ)法：Factory 1 Operation Factory 2 Result FLD01 CAT FLD02:0 FLD03 這句話的意思，是將FLD02拼在FLD01后面，中間沒(méi)有空格，然后將拼出的結(jié)果賦值到FLD03中。不需要“SELECT”操作碼。即’FHSILE01’，與fhsile01，表示的是兩個(gè)不同的程序。如： FHSILE01=’FHS01’時(shí)，表示調(diào)用“FHS01”這個(gè)外部程序； FHSILE01=’FHS02’時(shí)，表示調(diào)用“FHS02”這外外部程序 也就是說(shuō)，CALL操作碼調(diào)用的程序名，可以是一個(gè)變量名。 在程序中，可以寫一個(gè)子過(guò)程，但是不調(diào)用它。我們的邏輯判斷語(yǔ)句，就都寫在這個(gè)Extended Factory 2項(xiàng)中BEGSR (Beginning of Subroutine) 子過(guò)程的開始處 Factory 1 Operation Factory 2 Result BEGSR 子過(guò)程名在前面，講述程序流程時(shí)，已經(jīng)對(duì)子過(guò)程進(jìn)行了解釋。 Factory 1 Operation Factory 2 Result FLD01 IFEQ ‘A’ FLD02 ANDEQ ‘B’ 。這時(shí)要使用MOVE操作碼。那么FHS01+FHS02本來(lái)應(yīng)該等于14，但用ADD操作之后，系統(tǒng)會(huì)自動(dòng)將超長(zhǎng)位截去，即FHS03最后等于4；而用EVAL語(yǔ)句時(shí)，系統(tǒng)判斷超長(zhǎng)后，會(huì)直接報(bào)錯(cuò)“The target for a numeric operation is too small to hold the result”，然后異常中斷。我試過(guò)，不過(guò)不知道取出了地址位能干嘛，所以沒(méi)有實(shí)際運(yùn)用過(guò)?？少x值的內(nèi)容是從01—99，在以后的說(shuō)明中，如果HI項(xiàng)填寫10，LO項(xiàng)填寫20，EQ項(xiàng)填寫30，那么我所說(shuō)的HI指示器，即是指*IN10，LO指示器即是*IN20，EQ指示器即是*IN30，依此類推。Factor 1： 操作內(nèi)容一，將在后面與操作碼一起講Operation： 操作碼，后面有專門章節(jié)講解操作碼Factor 2： 操作內(nèi)容二，同上Result： 操作結(jié)果，同上Length： 長(zhǎng)度。 內(nèi)容說(shuō)明 Level N01 Factor 1 Operation Factor 2 Result Decimal Length Positions HI LO EQ Comment Level： 和cycle相關(guān)，沒(méi)研究過(guò)，一般不填N01： 這個(gè)含義比較豐富，我只用過(guò)其中一種： 首位不帶N，后面填寫01—99的數(shù)字時(shí)，表示相應(yīng)的指示器打開時(shí)，執(zhí)行后面的操作，如： C 12 EVAL FHS01=’01’等價(jià)于 IF *IN12=’1’ EVAL FHS01=’01’ ENDIF 首位帶N，后面填寫01—99的數(shù)字，表示相應(yīng)的指示器關(guān)閉時(shí)，執(zhí)行后面的操作 要注意，該項(xiàng)內(nèi)容僅作用于該行操作碼。但是如果這個(gè)用法并不普遍，那么并不建議使用（當(dāng)然自己用來(lái)練習(xí)無(wú)妨），否則會(huì)給其它讀代碼的人帶來(lái)困難，同時(shí)也會(huì)給自己帶來(lái)麻煩（比如出了問(wèn)題，別人看不懂，自然會(huì)打電話來(lái)問(wèn)原作者） 基于這樣的道理，同樣，我認(rèn)為FREE格式的程序，雖然可以自由書寫，有縮進(jìn)等優(yōu)勢(shì)，但是除非整個(gè)項(xiàng)目組所有成員都已熟練掌握FREE格式的程序，或已進(jìn)行過(guò)完善、系統(tǒng)的FREE格式的培訓(xùn)，才能正式使用。數(shù)據(jù)的錯(cuò)誤、混亂其實(shí)還不是最大的問(wèn)題，更大的問(wèn)題在于“這時(shí)我們不知道數(shù)據(jù)已經(jīng)出錯(cuò)了”。而調(diào)用它的程序，就參照這個(gè)PF文件，定義結(jié)構(gòu)做為調(diào)用的接口參數(shù)。原理可以自行想想。入口參數(shù)的定義，可以寫在程序的任何一處，而程序的執(zhí)行，始終是從C行的順序第一行開始執(zhí)行，與入口參數(shù)所在的位置無(wú)關(guān)。假設(shè)有程序FHS01ILE，其中入口參數(shù)的定義如下：C *ENTRY PLIST C PARM FLD01 3C PARM FLD02 4其中：*ENTRY在“Factor 1”項(xiàng)；PLIST在“Operation”項(xiàng)；PARM在“Operation”項(xiàng)；FLD0FLD02都在“Result”項(xiàng)上述定義，表示這個(gè)程序通過(guò)兩個(gè)字段與其它外部程序溝通。如：D MYDS DSD MYFLD01 2D MYFLD02 2 在C行中，這兩句是等價(jià)的 C EVAL %SUBST(MYDS:3:2)=’01’ C EVAL MYFLD02=’01’ 第一句是直接改結(jié)構(gòu)變量MYDS的后兩位的值（當(dāng)然，此時(shí)MYFLD02的值也變化了） 第二句是對(duì)MYFLD02進(jìn)行賦值，同樣，賦完值之后，MYDS的后兩位也變?yōu)椤?1’在需要頻繁進(jìn)行數(shù)字與字符之間轉(zhuǎn)換時(shí)，偷懶的人會(huì)通過(guò)定義這樣的結(jié)構(gòu)來(lái)達(dá)到目的：D MYDS DSD MYFLD01 1 8D MYFLD02 1 8 0比如說(shuō)，給MYFLD01賦值為’20070208’之后，MYFLD02也就自動(dòng)等于20070208；然后給MYFLD02加1之后，MYFLD02等于20070209，MYFLD01的值也自動(dòng)等于’20070209’。右對(duì)齊Internal Data Type： 定義變量的類型，允許的值有： 空：變量定義為字符型、壓縮型數(shù)字 A： 變量定義為字符型 B： 二進(jìn)制？不知道 D： 變量定義為日期型 F： 變量定義為浮點(diǎn)型？ G： 變量定義為圖型？（非英文？漢字？） I： 變量定義為帶符號(hào)的整數(shù) N： 變量定義為指示器變量？（沒(méi)用過(guò)） P： 變量定義為壓縮型數(shù)字 S： 變量定義為普通的數(shù)型 T： 變量定義為時(shí)間型 U： 變量定義為無(wú)符號(hào)的整數(shù) Z： 變量定義為日期+時(shí)間型（格式：） *： 變量定義為指針型 其實(shí)我最常用，就是不填，因?yàn)橐话愕某绦?，有字符和?shù)字這兩種類型變量，就足夠了。所不同的是，第一種定義方法，是指定了變量在結(jié)構(gòu)中的位置；而第二種方法，是直接指定變量的長(zhǎng)度和類型注意到上面的定義中，DSFLD0DSFLD02的Declaration Type為空，也就是表示這兩個(gè)字段是屬于上面定義的結(jié)構(gòu)MYDS。From： 當(dāng)“Declaration Type”項(xiàng)為“S”時(shí)，表示獨(dú)立變量、數(shù)組，此項(xiàng)不填 當(dāng)“Declaration Type”項(xiàng)為“DS”時(shí)，表示結(jié)構(gòu)，此項(xiàng)仍然不填當(dāng)“Declaration Type”項(xiàng)為空時(shí)，表示當(dāng)前定義的變量，屬于上面定義的結(jié)構(gòu)，此時(shí)，此項(xiàng)可以填寫，也可以不填寫。abcdefghijklmn39。此項(xiàng)為空時(shí)，好象只能用來(lái)表示當(dāng)前定義的變量是屬于結(jié)構(gòu)的一個(gè)變量。而第二種定義方法，就是直接定義一個(gè)結(jié)構(gòu)“MYDS”?？梢圆惶?，或填“E” 上面的解釋可能有點(diǎn)饒口，其實(shí)這個(gè)地方的意思，就是說(shuō)：如果是程序內(nèi)部自行定義一個(gè)臨時(shí)變量，此處不填；如果是引用的一個(gè)外部文件作為數(shù)據(jù)結(jié)構(gòu)，那么這里就要填“E” ；同時(shí)“Declaration Type”處，就要填“DS”，即定義為一個(gè)結(jié)構(gòu)；“Keywords”處要使用EXTNAME關(guān)鍵字 所謂“引用一個(gè)外部文件作為數(shù)據(jù)結(jié)構(gòu)”，也就是說(shuō)定義一個(gè)結(jié)構(gòu)，整個(gè)結(jié)構(gòu)中的變量，參照外部文件來(lái)定義。（填了也沒(méi)用） 常用例子對(duì)文件進(jìn)行只讀的聲明：FPFFHS IF E DISK 對(duì)文件進(jìn)行修改的聲明： FPFFHS UF E DISK 對(duì)文件進(jìn)行只寫的聲明： FPFFHS O E DISK 對(duì)文件進(jìn)行修改，以及增加記錄的操作： FPFFHS UF A E DISK對(duì)文件進(jìn)行查詢，增加記錄的操作，并對(duì)文件進(jìn)行查詢操作： FPFFHSL1 IF A E K DISK聲明兩個(gè)記錄格式相同的文件，并對(duì)其中之一進(jìn)行重命名 FPFFHSL1 IF E K DISK FPFFHSL2 IF E K DISK RENAME(FMTFHS:FMTFHS2)注：在聲明時(shí)，兩個(gè)文件不一定要上下緊接著；隨便改哪一個(gè)文件對(duì)應(yīng)的記錄格式都可以；新舊記錄格式名用冒號(hào)隔開，新記錄格式名可自行定義，無(wú)規(guī)則。USROPN常作用于對(duì)文件的解鎖，在同一程序中打開同一文件的不同MEMBER等，屬于一個(gè)較高級(jí)的用法，可在實(shí)際操作中慢慢體會(huì)。如果不填寫此關(guān)鍵字，系統(tǒng)將會(huì)在程序最最開始（執(zhí)行第一句C行語(yǔ)句前），自動(dòng)執(zhí)行“OPEN 文件” 的操作，在程序結(jié)束后，自動(dòng)執(zhí)行“CLOSE 文件”的操作。 那么，為了能讓系統(tǒng)區(qū)分，就必須對(duì)其中一個(gè)的記錄格式名進(jìn)行重命名。Keyword 可以不填，常用的值有（這里只列出幾個(gè)常用的）： COMMIT 該文件記錄的數(shù)據(jù)操作進(jìn)行日志處理（關(guān)于日志處理，后面會(huì)章節(jié)會(huì)講到） RENAME 對(duì)文件記錄格式名進(jìn)行重命名。屏幕文件(DSPF)的定義用這個(gè)值 （下面這兩種我沒(méi)用過(guò)的） SEQ： 磁帶文件，文件存儲(chǔ)在磁帶上。（下面的選項(xiàng)應(yīng)該是程序描述文件才會(huì)使用） A： KEY值為字符型 D：KEY值為日期型 F：KEY值為數(shù)字型 G：KEY值為非英文字符 P：KEY值為壓縮型數(shù)字 T：KEY值為時(shí)間型 Z：KEY值為timestamp？ 總之，如果要按照鍵值對(duì)聲明的文件進(jìn)行查詢定位操作（即程序中使用了CHAIN、SETLL操作碼，則此項(xiàng)需要填寫“K”；如不需要進(jìn)行查詢操作，則不填。 因?yàn)橐话愣际褂猛獠棵枋鑫募?，所以這里一般都不填寫。File Format 文件格式，不能為空，允許的值有： E： 聲明的文件，是外部描述的文件（即文件在程序運(yùn)行之前就已存在？） F： 聲明的文件，是一個(gè)程序描述文件？（不知道什么意思，沒(méi)用過(guò)） 這里通常填“E”，即為外部描述文件Record Length “File Format”為“F”時(shí)，才需要填寫。(Cycle我沒(méi)有用過(guò)，估計(jì)可能是使用控制起來(lái)，程序代碼不那么直觀，不利于上手和維護(hù)，所以現(xiàn)在已經(jīng)不流行使用了。File Addtion： 是否會(huì)增加文件中的記錄，即是否會(huì)對(duì)文件進(jìn)行寫操作。 C：混合型，用于對(duì)屏幕文件的定義。 F行說(shuō)明 內(nèi)容說(shuō)明首位填上F，然后按F4，會(huì)出現(xiàn)如下內(nèi)容： File File End of File Filename Type Designation File Addition Sequence File Record Limits Length of Record Format Length Processing Key Field Address Type File Organization Device Keywords Comment