【文章內(nèi)容簡介】 8 339。6 Order Entry39。 A 9 239。98 End of menu39。 A 11 239。Option39。 A RESP 2Y001 11 10VALUES(1 2 3 4 5 6 98) A DSPATR(MDT) A ACL源語句如下： PGM /* ORD040C Order Dept General Menu */ DCLF FILE(ORD040CD) START: SNDRCVF RCDFMT(MENU) IF (amp。RESP=1) THEN(CALLPRC CUS210) /* Customer inquiry */ ELSE + IF (amp。RESP=2) THEN(CALLPRC ITM210) /*Item inquiry*/ ELSE + IF (amp。RESP=3) THEN(CALLPRC CUS220) /* Cust name search */ ELSE + IF (amp。RESP=4) THEN(CALLPRC ORD215) /* Orders by cust */ ELSE + IF (amp。RESP=5) THEN(CALLPRC ORD220) /* Existing order */ ELSE + IF (amp。RESP=6) THEN(CALLPRC ORD410C) /* Order entry */ ELSE + IF (amp。RESP=98) THEN(RETURN) /* End of Menu */ GOTO START ENDPGMDCLF命令指出在處理SNDRCVF命令時(shí)哪個(gè)文件有需要的字段屬性。SNDRCVF命令往顯示上發(fā)送菜單且接收從顯示中選擇的選項(xiàng)。如果從菜單上選98，ORD040C返回到調(diào)用它的過程，ELSE語句處理替換的響應(yīng)。注：此菜單用CALL運(yùn)行，用GO命令運(yùn)行的菜單請看應(yīng)用顯示編程一書。 在CL過程中替換顯示文件可用OVRDSPF命令代替在CL過程和程序中使用的顯示文件或修改顯示文件的某些參數(shù)，這在對CL過程和程序編譯時(shí)用的文件修改或移動時(shí)很有用，OVRDSPF的初始參數(shù)為： OVRDSPF FILE(被替換的文件名) TOFILE(新文件名) DEV(設(shè)備名)OVRDSPF僅對CL過程和程序生成時(shí)DCLF規(guī)定的顯示文件有效。程序運(yùn)行時(shí)和生成時(shí)所用的文件類型必須一致。必須在被替換的文件打開前用OVRDSPF命令。在下列情況下，文件可以被替換： 在有OVRDSPF命令的過程和程序中打開 在由CALLPRC命令把控制轉(zhuǎn)給的另外過程和程序中打開 在由CALL命令把控制轉(zhuǎn)給的另外過程和程序中打開有關(guān)替換文件的內(nèi)容請看數(shù)據(jù)管理一書。在替換成不同的文件時(shí)，僅在SNDF、RCVF或SNDRCVF命令中引用 的記錄格式名需要在替換文件中，在下面的解釋中，顯示文件FILEY不用記錄格式TWO和THREE。 顯示文件 程序MCGANN/FILEXPGMDCLF MCGANN/FILEX???OVRDSP FILE(FILEX) TOFILE(FILEY) ???SNDF RCDFMT(ONE)???ENDPGMRCDFMT ONEFeld 1RCDFMT TWOField 2RCDFMT THREEField 3 MCGANN/FILEYRCDFMT ONEField 1 要保證原文件和替換文件有相同的字段定義和指示器名，且要順序胡同。如果規(guī)定LVLCHK（*NO）要導(dǎo)致非期望結(jié)果。在用OVRDSPF時(shí)另一個(gè)要考慮的是SNDF，RCVF和SNDRCVF中的DEV參數(shù)。如果規(guī)定DEV（*FILE），系統(tǒng)自動地用被替換文件的當(dāng)前設(shè)備操作，如果在DEV中規(guī)定一個(gè)特別設(shè)備，可以發(fā)生以下情況之一： 如果用一個(gè)顯示設(shè)備顯示文件，假如不是用在RCVF、SNDF或SNDRCVF命令中規(guī)定的設(shè)備替換顯示文件，則出錯(cuò)。 如果用多個(gè)設(shè)備顯示文件，假如在RCVF，SNDF或SNDRCVF規(guī)定的設(shè)備不是OVRDSPF命令規(guī)定的那些，則出錯(cuò)。 處理多設(shè)備顯示文件系統(tǒng)中正常的操作方式是工作站用戶注冊來請求一個(gè)交互作業(yè)，同時(shí)可有多個(gè)用戶這樣做，他們使用過程的一個(gè)邏輯考貝，其中包括過程使用的顯示文件，每個(gè)請求都用這種使用方式來調(diào)用作業(yè)，這時(shí)不考慮使用多設(shè)備顯示文件。在一個(gè)用戶請求調(diào)用一個(gè)作業(yè)，通過一個(gè)顯示文件與多個(gè)顯示工作站通訊時(shí)，發(fā)生多設(shè)備顯示的配置，而一個(gè)CL過程僅能處理一個(gè)顯示文件，這個(gè)顯示文件或其中不同的記錄格式能被送往幾個(gè)設(shè)備顯示。顯示設(shè)備文件所用的命令主要有：ENDRCV（結(jié)束接收）：它結(jié)束已經(jīng)滿足的輸入請求。WAIT（等待）：在命令中規(guī)定WAIT(*NO)時(shí)，由前面一個(gè)或多個(gè)RCVF或SNDRCVF命令從任何顯示設(shè)備上接收請求的用戶數(shù)據(jù)。或由一個(gè) 或多個(gè)以前的SNDF命令送出包括INVITE DDS鍵字的記錄格式。 如果用多設(shè)備顯示文件，設(shè)備名必須在CRTDSPF中的DEV參數(shù)中規(guī)定，或在修改顯示文件時(shí)用CHGDSPF規(guī)定，或在替換命令中規(guī)定。設(shè)備數(shù)必須小于或等于CRTDSPF中的MAXDEV參數(shù)中規(guī)定的數(shù)。多設(shè)備顯示配置影響SNDRCVF和RCVF命令，需要用WAIT和ENDRCV命令。在多設(shè)備用RCVF或SNDRCVF時(shí)，缺省值WAIT(*YES)能避免進(jìn)一步的操作，要等到從DEV中規(guī)定的設(shè)備上有輸入屬性字段返給程序。由于響應(yīng)可能延遲，也常規(guī)定WAIT(*NO)。這樣可以過程和程序在滿足接收操作前能繼續(xù)運(yùn)行其它的命令。 如果用RCFVF或SNDRCVF且規(guī)定WAIT（*NO），過程和程序繼續(xù)運(yùn)行直到處理WAIT命令。 在記錄格式的DDS有INVITE鍵字且使用SNDF命令，它等價(jià)于用SNDRCVF且規(guī)定WAIT(*NO)。對SNDRCVF和RCVF，忽略INVITE鍵字。 要訪問一個(gè)數(shù)據(jù)記錄必須有WAIT命令。如果沒有可用數(shù)據(jù)，過程要掛起，直到從顯示設(shè)備上接收到數(shù)據(jù)或等待時(shí)間超過在CRTDSPF、CHGDSPF或OVRDSPF中WAITRCD參數(shù)中規(guī)定的時(shí)間限制。如果超時(shí)，則發(fā)出SPF0889信息。 在ENDJOB、ENDSYS、PWRDWNSYS和ENDSBS命令中的控制選項(xiàng)也要有WAIT，以便能滿足取消作業(yè)的條件。這時(shí)，發(fā)出CPF0888信息且沒有返回?cái)?shù)據(jù)。如果WAIT不與前面的接收請求有關(guān)，(例如規(guī)定WAIT(*NO))，則發(fā)生處理錯(cuò)誤。典型的多設(shè)備顯示配置如圖所示： DSPFILE WS2 SNDF DEV(WS2) RCDFMT(1)RCVF DEV(WS2) RCDFMT(1) WAIT(*YES)??SNDRCVF DEV(WS1) RCDFMT(2) WAIT(*NO)CALL PROGA???WAIT???FMT 1FMT 2WS1在上面的例子中，兩個(gè)命令給出用缺省值的典型順序。處理等待從WS2的接收操作完成，由于在DEV中規(guī)定了WS2，則在WS2沒響應(yīng)前不執(zhí)行RCVF命令，即使前面的從其它工作站的請求（沒給出）已滿足也是這樣。但在SNDRCVF命令中規(guī)定了WAIT(*NO)，所以不等待從WS1的響應(yīng)，繼續(xù)處理，調(diào)用PROGA，然后停在WAIT命令處，等待滿足工作站的沒完成的請求或直到功能超時(shí)。WAIT有下格式：WAIT DEV(CL變量名)如果規(guī)定了DEV參數(shù)，CL變量名是響應(yīng)的設(shè)備名（缺省值名*NONE）。如果有幾個(gè)接收請求，變量就用遇到WAIT命令后的第一個(gè)能響應(yīng)的設(shè)備名，然后繼續(xù)處理，接收的數(shù)據(jù)放在與設(shè)備顯示字段相關(guān)的變量中。與RCVF一起用WAIT(*YES)能等待從 某個(gè)設(shè)備來的數(shù)據(jù)。在起動設(shè)備請求的操作和RCVF中規(guī)定的記錄格式名必須相同。在某些情況下，幾個(gè)接收請求都沒完成，但不能進(jìn)一步處理沒有回答的設(shè)備顯示。在下例中，有三個(gè)命令規(guī)定了WAIT(*NO)。但只能在WS3回答后才能繼續(xù)處理LOOP： PGM . . . SNDF DEV(WS1) RCDFMT(ONE) SNDF DEV(WS2) RCDFMT(TWO) SNDRCVF DEV(WS3) RCDFMT(THREE) WAIT(*NO) RCVF DEV(WS2) RCDFMT(TWO) WAIT(*NO) RCVF DEV(WS1) RCDFMT(ONE) WAIT(*NO) CALL... CALL... . . RCVF DEV(WS3) RCDFMT(THREE) WAIT(*YES) LOOP: WAIT DEV(amp。WSNAME) MONMSG CPF0882 EXEC(GOTO REPLY) . . . GOTO LOOP REPLY: CALL... . . . ENDPGMCL過程和程序也支持ENDRCV命令，它讓你能取消沒滿足的輸入請求。SNDF或SNDRCVF也能取消沒滿足的輸入請求，但如果在處理SNDF或SNDRCVF時(shí)有可用數(shù)據(jù)，則送出CPF0887信息。這時(shí)，必須用WAIT或RCVF命令接收數(shù)據(jù)，或用ENDRCV命令明確地取消這個(gè)請求，才能再執(zhí)行SNDF或SNDRCVF命令。 從數(shù)據(jù)庫文件接收數(shù)據(jù)用來從數(shù)據(jù)庫文件接收數(shù)據(jù)的命令只有一個(gè)RCVF。在運(yùn)行RCVF命令時(shí)，讀文件的訪問路徑中的下一條記錄，把在數(shù)據(jù)庫記錄格式中定義的字段值放在相應(yīng)的CL變量中。CL不支持區(qū)位十進(jìn)制或二進(jìn)制數(shù)，這樣，文件中定義為區(qū)位十進(jìn)制或二進(jìn)制的字段在CL過程和程序中要定義為*DEC字段，*DEC字段做為壓縮十進(jìn)制。如果需要，RCVF命令會完成從區(qū)位十進(jìn)制或二進(jìn)制到壓縮十進(jìn)制的轉(zhuǎn)換。有浮點(diǎn)數(shù)據(jù)的數(shù)據(jù)庫文件不能在CL過程和程序中使用。在到達(dá)文件末尾時(shí)，有CPF0864信息送出，這時(shí)，說明為記錄格式的CL變量不因RCVF命令的執(zhí)行而有變化。程序員要監(jiān)控這個(gè)信息，且要采取相應(yīng)的動作。如果在文件末時(shí)要運(yùn)行DRCVF命令，則再次發(fā)送CPF0864信息。 在CL過程和程序中替換數(shù)據(jù)庫文件 可用OVRDBF命令來替換CL過程和程序中命名的數(shù)據(jù)庫文件或修改已有的數(shù)據(jù)庫文件的某些參數(shù)，這在過程和程序生成之后修改文件名或移出文件是很有用的。它可也用來訪問文件中除第一個(gè)成員以外的其它成員。 此命令的初始參數(shù)為： OVRDBF FILE(被替換的文件名) TOFILE(新文件名) MBR(成員名) 這條命令僅在CL過程和程序引用編譯時(shí)用DCLF說明的數(shù)據(jù)庫文件的模塊或程序時(shí)是有效的。程序處理使用的文件必須和引用的模塊或程序生成時(shí)所用的文件類型相同。 OVRDBF命令必須在被替換文件打開之前處理。（第一次使用RCVF命令時(shí)打開文件），在下列情況下文件會被替換： 文件在有OVRDBF命令的過程或OPM程序中打開或 文件在由CALL命令把控制傳給另外的程序時(shí)被打開或 文件在由CALLPRC命令把控制傳給另外的過程時(shí)被打開 有關(guān)OVRDBF的詳細(xì)內(nèi)容請看數(shù)據(jù)管理一書。 在替換不同文件時(shí)，替換文件必須僅是只讀記錄格式。用DDS定義的多記錄格式的邏輯文件如果被定義為只引用一個(gè)物理文件成員，則可用做替換文件，在DDS中定義的僅一個(gè)記錄格式的邏輯文件可以定義為引用多個(gè)物理文件成員。在程序生成時(shí)，格式名不必非得與引用它的格式名相同，但必須保