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