《銀行柜臺項目總結(jié).ppt》由會員分享，可在線閱讀，更多相關(guān)《銀行柜臺項目總結(jié).ppt（30頁珍藏版）》請在裝配圖網(wǎng)上搜索。
1、銀行賬戶管理系統(tǒng)項目小結(jié),界面的相關(guān)操作 COPY語句 文件的相關(guān)操作 臨時存儲隊列TS QUEUE 幾個基本的CICS命令 CICS提供的交易,Mapset,符號界面的內(nèi)容包括,界面名+后綴I和O，表示界面既可以輸入也可以輸出 INPUT MAP L半字節(jié)二進(jìn)制字段包含輸入數(shù)據(jù)的長度 F存放域標(biāo)志位 I存放用戶實際輸入的數(shù)據(jù) OUTPUT MAP A存放域的屬性字節(jié) O存放輸出終端的數(shù)據(jù),MAP的操作,界面的輸出 EXEC CICS SEND MAP（map-name） MAPSET（mapset-name） ERASE FREEKB CURSOR
2、 RESP END-EXEC,MAP的操作（續(xù)）,界面的輸入 EXEC CICS RECEIVE MAP（m-n） MAPSET（ms-n） 數(shù)據(jù)傳送回程序。 END-EXEC 注意： 所有的receive 都應(yīng)該檢查MAPFAIL狀態(tài)，MAPFAIL意味著沒有數(shù)據(jù)傳送回程序。 原因： 1）沒有輸入數(shù)據(jù)到界面的任何區(qū)域內(nèi) 2）操作員按下CLEAR鍵,COPY 命令,COPY MAPSET COPY DFHAID （常用標(biāo)識鍵描述） DFHENTER，DFHCLEAR，DFHPFx CICS系統(tǒng)提供的一個描述程序注意標(biāo)識（AID）常量的文件，用來在CICS交易運行時確定操作
3、員按下的是哪一個鍵。 通過比較EIBAID和在DFHAID COPYBOOK中的鍵盤代號，可以確定操作員輸入了哪中功能鍵。程序員可以利用這個技巧編寫結(jié)構(gòu)化程序。Such as： IF EIBAID = DFHENTER IF EIBAID = DFHCLEAR IF EIBAID = DFHPFx,COPY(續(xù)）,COPY DFHBMSCA（界面顯示屬性常量） CICS系統(tǒng)提供的COBOL程序中可以使用的顯示屬性常數(shù)的COPYBOOK，可以利用這些屬性常量更改界面字段的屬性 DFHBMBRY Bright DFHBMDAR Dark DFHHLT Highlight MOV
4、E DFHBMBRY TO X MOVE DFHHLT TO X,COPY,CICS數(shù)據(jù)區(qū),EIB和COMMEREA 是CICS程序一般都要用到的數(shù)據(jù)區(qū)，在CICS預(yù)編譯時，這兩個數(shù)據(jù)區(qū)的定義會自動添加到COBOL程序的LINKAGE SECTION里面。 EIB（EXEC interface block） CICS系統(tǒng)為沒個TASK建立一個EIB數(shù)據(jù)，里面記載這個TASK所在的系統(tǒng)環(huán)境情況，CICS可以讀取這些變量但是不能改變。 EIBCALEN ，EIBAID， EIBRESP，EIBTRNID，EIBTRMID COMMEREA （communication area） 是不同C
5、ICS程序間或CICS程序與CICS CLIENT 程序間傳遞信息的數(shù)據(jù)區(qū),CICS中訪問VSAM文件,READ命令 WRITE命令 REWRITE命令 DELETE命令 UNLOCK命令,READ命令-隨機(jī)讀取VSAM文件中的記錄,EXEC CICS READ FILE(CICS-FILE-NAME) INTO(DATA-RECORD) LENGTH(RECORD-L)變長需要 RIDFLD(KEY) RRN(RRDS) UPDATE END-EXEC READ 常見異常： NOTFND：文件中沒有找到鍵值指定記錄 INVEREQ：非法的請求
6、 FILENOTFOUND：FCT里文件名不存在 LENGERR：記錄長度錯誤 NOTOPEN：文件沒有打開 ILLOGIC：邏輯錯誤 DISABLED：文件處于失效狀態(tài),WRITE命令-寫一條新紀(jì)錄到VSAM文件中,EXEC CICS WRITE FILE(CICS-FILE-NAME) FORM(DATA-RECORD) RIDFLD(KEY) RRN(RRDS) END-EXEC WRITE 常見異常： DUPREC：記錄重復(fù) LENGERR：記錄長度錯誤 NOSPACE：文件的空間已滿 INVREQ,REWRITE命令-用來置換文件中已經(jīng)存在的記錄,EXE
7、C CICS REWRITE FILE(CICS-FILE-NAME) FORM(DATA-RECORD) END-EXEC 注意 執(zhí)行REWRITE語句之前，必須先執(zhí)行READ UPDATE命令 REWRITE 常見異常： INVREQ,DELETE命令-用來刪除文件中的一條記錄,EXEC CICS DELETE FILE(CICS-FILE-NAME) RIDFLD（KEY） RRN END-EXEC 注意 只有KSDS 和 RRDS文件記錄才能夠刪除。如果存取的記錄在刪除之前有為修改所做的檢索，就不需要RIDFLD。 REWRITE 常見異常： INVREQ
8、 NOTFND,UNLOCK命令-用來釋放被READ UPDATE語句獨占的記錄,EXEC CICS UNLOCK FILE(CICS-FILE-NAME) END-EXEC 當(dāng)下列情況發(fā)生時，VSAM排他控制得以釋放 在文件中REWRITE修改的記錄 DELETE記錄 通過發(fā)送UNLOCK命令取消修改的意向 任務(wù)結(jié)束 有明確的SYNPOINT命令或任務(wù)終結(jié)，CICS排他控制也結(jié)束,CICS中瀏覽VSAM文件,STARTBR命令 READNEXT命令 READPREV命令 ENDBR命令 RESETBR命令,STARTBR命令-用來開始一個VSAM文件瀏覽處理,EXEC CICS STARTB
9、R FILE(CICS-FILE-NAME) RIDFLD(KEY) KEYLENGTH GTEQ/EQUAL END-EXEC STARTBR 常見異常： NOTFND： INVEREQ：,READNEXT命令-用來按照鍵值的順序檢索下一條記錄VSAM文件瀏覽處理,EXEC CICS READNEXT FILE(CICS-FILE-NAME) INTO(DATE-AREA） LENGTH RIDFLD(KEY) KEYLENGTH- END-EXEC READNEXT 常見異常： NOTFND： INVEREQ
10、： ENDFILE：讀到文件末尾。(EOF異常狀態(tài)）,TS QUEUE,寫數(shù)據(jù)到臨時存儲隊列 修改臨時存儲隊列中的數(shù)據(jù) 從臨時存儲隊列中讀取數(shù)據(jù) 刪除臨時存儲隊列中的數(shù)據(jù),寫數(shù)據(jù),EXEC CICS WRITEQ TS QUEUE（q-name） FROM（data-area） LENGTH（queue-len） ITEM（counter） - S9(4)comp MAIN/AUXILIARY END-EXEC WRITEQ TS常見異常 INVREQ 隊列處于疑問狀態(tài) IOERR 操作臨時隊列時出現(xiàn)輸
11、入輸出錯誤時出現(xiàn) ITEMERR 編號非法（不在隊列范圍內(nèi)）；超過了允許的最大編號 NOSPACE 臨時存儲隊列中沒有足夠的空間存放要寫的記錄 QIDERR 指定的隊列不存在,修改數(shù)據(jù),EXEC CICS WRITEQ TS QUEUE（q-name） FROM（data-area） LENGTH（queue-len） ITEM（counter） REWRITE END-EXEC,讀取數(shù)據(jù),EXEC CICS READQ TS QUEUE（q-name） INTO（data-area）
12、 LENGTH（queue-len） ITEM（counter） END-EXEC READQ TS常見異常 IOERR ITEMERR QIDERR LENGERR 存儲的數(shù)據(jù)記錄大于指定在LENGTH選項中的變量的值,刪除數(shù)據(jù),EXEC CICS DELETEQ TS QUEUE（q-name） END-EXEC DELETEQ TS常見異常 INVERQ IOERR QIDERR,一些基本的CICS命令,RECEIVE 命令 SEND命令 SEND CONTRAL 命令 RETURN 命令,其他CICS常用命令,ASKTIME FORMATTIME END DEQ DELAY CANCEL ,CICS中用到的交易,CEDA 聯(lián)機(jī)資源定義交易 CEMT MASTER TERMINAL 用戶動態(tài)的控制CICS系統(tǒng) CECI 命令層解析程序，可執(zhí)行CICS命令而無須編寫程序 CEDF 聯(lián)機(jī)交易診斷工具 CEBR 瀏覽和刪除TS QUEUE,CEDA,CEMT,CECI,CEBR,結(jié)束語,謝 謝 ！,
銀行柜臺項目總結(jié).ppt
