银行柜台项目总结.ppt

银行账户管理系统项目小结,界面的相关操作 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的操作（续）,界面的输入 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 DFHBMSCA（界面显示属性常量） CICS系统提供的COBOL程序中可以使用的显示属性常数的COPYBOOK，可以利用这些属性常量更改界面字段的属性 DFHBMBRY Bright DFHBMDAR Dark DFHHLT Highlight MOVE DFHBMBRY TO X MOVE DFHHLT TO X,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,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 当下列情况发生时，VSAM排他控制得以释放 在文件中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：,READNEXT命令-用来按照键值的顺序检索下一条记录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） 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-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