银行柜台项目摘要.pptVIP

银行账户管理系统项目小结 界面的相关操作 COPY语句 文件的相关操作 临时存储队列TS QUEUE 几个基本的CICS命令 CICS提供的交易 MAP的操作 界面的输出 EXEC CICS SEND MAP（map-name） MAPSET（mapset-name） ERASE FREEKB CURSOR RESP END-EXEC MAP的操作（续） 界面的输入 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 COPYBOOK中的键盘代号，可以确定操作员输入了哪中功能键。程序员可以利用这个技巧编写结构化程序。Such as： IF EIBAID = DFHENTER … IF EIBAID = DFHCLEAR … IF EIBAID = DFHPFx COPY(续） COPY CICS数据区 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中访问VSAM文件 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：逻辑错误 DISABLED：文件处于失效状态 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语句之前，必须先执行READ UPDATE命令 REWRITE 常见异常： INVREQ