《银行柜台项目总结.ppt》由会员分享，可在线阅读，更多相关《银行柜台项目总结.ppt（30页珍藏版）》请在三一文库上搜索。
1、银行账户管理系统项目小结,界面的相关操作 COPY语句 文件的相关操作 临时存储队列TS QUEUE 几个基本的CICS命令 CICS提供的交易,Mapset,符号界面的内容包括,界面名+后缀I和O，表示界面既可以输入也可以输出 INPUT MAP L半字节二进制字段包含输入数据的长度 F存放域标志位 I存放用户实际输入的数据 OUTPUT MAP A存放域的属性字节 O存放输出终端的数据,MAP的操作,界面的输出 EXEC CICS SEND MAP（map-name） MAPSET（mapset-name） ERASE FREEKB CURSOR RESP END-EXEC,MAP的操作（
2、续）,界面的输入 EXEC CICS RECEIVE MAP（m-n） MAPSET（ms-n） 数据传送回程序。 END-EXEC 注意： 所有的receive 都应该检查MAPFAIL状态，MAPFAIL意味着没有数据传送回程序。 原因： 1）没有输入数据到界面的任何区域内 2）操作员按下CLEAR键,COPY 命令,COPY MAPSET COPY DFHAID （常用标识键描述） DFHENTER，DFHCLEAR，DFHPFx CICS系统提供的一个描述程序注意标识（AID）常量的文件，用来在CICS交易运行时确定操作员按下的是哪一个键。 通过比较EIBAID和在DFHAID COP
3、YBOOK中的键盘代号，可以确定操作员输入了哪中功能键。程序员可以利用这个技巧编写结构化程序。Such as： IF EIBAID = DFHENTER IF EIBAID = DFHCLEAR IF EIBAID = DFHPFx,COPY(续）,COPY DFHBMSCA（界面显示属性常量） CICS系统提供的COBOL程序中可以使用的显示属性常数的COPYBOOK，可以利用这些属性常量更改界面字段的属性 DFHBMBRY Bright DFHBMDAR Dark DFHHLT Highlight MOVE DFHBMBRY TO X MOVE DFHHLT TO X,COPY,CICS数
4、据区,EIB和COMMEREA 是CICS程序一般都要用到的数据区，在CICS预编译时，这两个数据区的定义会自动添加到COBOL程序的LINKAGE SECTION里面。 EIB（EXEC interface block） CICS系统为没个TASK建立一个EIB数据，里面记载这个TASK所在的系统环境情况，CICS可以读取这些变量但是不能改变。 EIBCALEN ，EIBAID， EIBRESP，EIBTRNID，EIBTRMID COMMEREA （communication area） 是不同CICS程序间或CICS程序与CICS CLIENT 程序间传递信息的数据区,CICS中访问VS
5、AM文件,READ命令 WRITE命令 REWRITE命令 DELETE命令 UNLOCK命令,READ命令-随机读取VSAM文件中的记录,EXEC CICS READ FILE(CICS-FILE-NAME) INTO(DATA-RECORD) LENGTH(RECORD-L)变长需要 RIDFLD(KEY) RRN(RRDS) UPDATE END-EXEC READ 常见异常： NOTFND：文件中没有找到键值指定记录 INVEREQ：非法的请求 FILENOTFOUND：FCT里文件名不存在 LENGERR：记录长度错误 NOTOPEN：文件没有打开 ILLOGIC：逻辑错误 DISA
6、BLED：文件处于失效状态,WRITE命令-写一条新纪录到VSAM文件中,EXEC CICS WRITE FILE(CICS-FILE-NAME) FORM(DATA-RECORD) RIDFLD(KEY) RRN(RRDS) END-EXEC WRITE 常见异常： DUPREC：记录重复 LENGERR：记录长度错误 NOSPACE：文件的空间已满 INVREQ,REWRITE命令 -用来置换文件中已经存在的记录,EXEC CICS REWRITE FILE(CICS-FILE-NAME) FORM(DATA-RECORD) END-EXEC 注意 执行REWRITE语句之前，必须先执行R
7、EAD UPDATE命令 REWRITE 常见异常： INVREQ,DELETE命令 -用来删除文件中的一条记录,EXEC CICS DELETE FILE(CICS-FILE-NAME) RIDFLD（KEY） RRN END-EXEC 注意 只有KSDS 和 RRDS文件记录才能够删除。如果存取的记录在删除之前有为修改所做的检索，就不需要RIDFLD。 REWRITE 常见异常： INVREQ NOTFND,UNLOCK命令 -用来释放被READ UPDATE语句独占的记录,EXEC CICS UNLOCK FILE(CICS-FILE-NAME) END-EXEC 当下列情况发生时，VS
8、AM排他控制得以释放 在文件中REWRITE修改的记录 DELETE记录 通过发送UNLOCK命令取消修改的意向 任务结束 有明确的SYNPOINT命令或任务终结，CICS排他控制也结束,CICS中浏览VSAM文件,STARTBR命令 READNEXT命令 READPREV命令 ENDBR命令 RESETBR命令,STARTBR命令-用来开始一个VSAM文件浏览处理,EXEC CICS STARTBR FILE(CICS-FILE-NAME) RIDFLD(KEY) KEYLENGTH GTEQ/EQUAL END-EXEC STARTBR 常见异常： NOTFND： INVEREQ：,REA
9、DNEXT命令-用来按照键值的顺序检索下一条记录VSAM文件浏览处理,EXEC CICS READNEXT FILE(CICS-FILE-NAME) INTO(DATE-AREA） LENGTH RIDFLD(KEY) KEYLENGTH- END-EXEC READNEXT 常见异常： NOTFND： INVEREQ： ENDFILE：读到文件末尾。(EOF异常状态）,TS QUEUE,写数据到临时存储队列 修改临时存储队列中的数据 从临时存储队列中读取数据 删除临时存储队列中的数据,写数据,EXEC CICS WRITEQ TS QUEUE（q-name） FROM（data-area）
10、LENGTH（queue-len） ITEM（counter） - S9(4)comp MAIN/AUXILIARY END-EXEC WRITEQ TS常见异常 INVREQ 队列处于疑问状态 IOERR 操作临时队列时出现输入输出错误时出现 ITEMERR 编号非法（不在队列范围内）；超过了允许的最大编号 NOSPACE 临时存储队列中没有足够的空间存放要写的记录 QIDERR 指定的队列不存在,修改数据,EXEC CICS WRITEQ TS QUEUE（q-name） FROM（data-area） LENGTH（queue-len） ITEM（counter） REWRITE END
11、-EXEC,读取数据,EXEC CICS READQ TS QUEUE（q-name） INTO（data-area） LENGTH（queue-len） ITEM（counter） END-EXEC READQ TS常见异常 IOERR ITEMERR QIDERR LENGERR 存储的数据记录大于指定在LENGTH选项中的变量的值,删除数据,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 联机资源定义交易 CEMT MASTER TERMINAL 用户动态的控制CICS系统 CECI 命令层解析程序，可执行CICS命令而无须编写程序 CEDF 联机交易诊断工具 CEBR 浏览和删除TS QUEUE,CEDA,CEMT,CECI,CEBR,结束语,谢 谢 ！,