银行柜台项目总结

1、银行账户管理系统项目小结银行账户管理系统项目小结n界面的相关操作nCOPY语句n文件的相关操作n临时存储队列TS QUEUEn几个基本的CICS命令nCICS提供的交易Mapsetn符号界面的内容包括符号界面的内容包括界面名+后缀I和O，表示界面既可以输入也可以输出INPUT MAPL半字节二进制字段包含输入数据的长度F存放域标志位I存放用户实际输入的数据OUTPUT MAPA存放域的属性字节O存放输出终端的数据MAP的操作的操作n界面的输出界面的输出EXEC CICS SEND MAP（map-name） MAPSET（mapset-name） ERASE FREEKB CURSOR RES

2、PEND-EXECMAP的操作的操作（续）（续）n界面的输入界面的输入EXEC CICS RECEIVE MAP（m-n） MAPSET（ms-n）数据传送回程序。数据传送回程序。 END-EXEC注意：注意：所有的所有的receive 都应该检查都应该检查MAPFAIL状态，状态，MAPFAIL意味着意味着没有数据传送回程序。没有数据传送回程序。原因：原因：1）没有输入数据到界面的任何区域内）没有输入数据到界面的任何区域内2）操作员按下）操作员按下CLEAR键键COPY 命令命令nCOPY MAPSETnCOPY DFHAID （常用标识键描述）（常用标识键描述） DFHENTER，DFHC

3、LEAR，DFHPFx CICS系统提供的一个描述程序注意标识（系统提供的一个描述程序注意标识（AID）常量的文件，用来在）常量的文件，用来在CICS交易运行时确定操作员按下的是哪一个键。交易运行时确定操作员按下的是哪一个键。 通过比较通过比较EIBAID和在和在DFHAID COPYBOOK中的键盘代号，可以确定操中的键盘代号，可以确定操作员输入了哪中功能键。程序员可以利用这个技巧编写结构化程序。作员输入了哪中功能键。程序员可以利用这个技巧编写结构化程序。Such as： IF EIBAID = DFHENTER IF EIBAID = DFHCLEAR IF EIBAID = DFHPFx

4、 COPY(续）续）nCOPY DFHBMSCA（界面显示属性常量）（界面显示属性常量）CICS系统提供的系统提供的COBOL程序中可以使用的显示属性常数的程序中可以使用的显示属性常数的COPYBOOK，可以利用这些属性常量更改界面字段的属性，可以利用这些属性常量更改界面字段的属性DFHBMBRY Bright DFHBMDAR DarkDFHHLT Highlight MOVE DFHBMBRY TO XMOVE DFHHLT TO X COPY CICS数据区数据区EIB和和COMMEREA 是是CICS程序一般都要用到的数程序一般都要用到的数据区，在据区，在CICS预编译时，这两个数据区

5、的定义会预编译时，这两个数据区的定义会自动添加到自动添加到COBOL程序的程序的LINKAGE SECTION里里面。面。EIB（EXEC interface block） CICS系统为没个系统为没个TASK建立一个建立一个EIB数据，里面记载这个数据，里面记载这个TASK所在所在的系统环境情况，的系统环境情况，CICS可以读取这些变量但是不能改变。可以读取这些变量但是不能改变。 EIBCALEN ，EIBAID， EIBRESP，EIBTRNID，EIBTRMIDCOMMEREA （communication area） 是不同是不同CICS程序间或程序间或CICS程序与程序与CICS C

6、LIENT 程序间传递信息的程序间传递信息的数据区数据区CICS中访问中访问VSAM文件文件nREAD命令命令nWRITE命令命令nREWRITE命令命令nDELETE命令命令nUNLOCK命令命令READ命令命令-随机读取随机读取VSAM文件中的记录文件中的记录EXEC CICS READ ) INTO(DATA-RECORD) LENGTH(RECORD-L)变长需要变长需要 RIDFLD(KEY) RRN(RRDS) UPDATEEND-EXECREAD 常见异常：常见异常：NOTFND：文件中没有找到键值指定记录：文件中没有找到键值指定记录INVEREQ：非法的请求：非法的请求：FCT

7、里文件名不存在里文件名不存在LENGERR：记录长度错误：记录长度错误NOTOPEN：文件没有打开：文件没有打开ILLOGIC：逻辑错误：逻辑错误DISABLED：文件处于失效状态：文件处于失效状态 WRITE命令命令-写一条新纪录到写一条新纪录到VSAM文件中文件中EXEC CICS WRITE ) FORM(DATA-RECORD) RIDFLD(KEY) RRN(RRDS)END-EXECWRITE 常见异常：常见异常：DUPREC：记录重复：记录重复LENGERR：记录长度错误：记录长度错误NOSPACE：文件的空间已满：文件的空间已满INVREQREWRITE命令命令-用来置换文件中

8、已经存在的记录用来置换文件中已经存在的记录EXEC CICS REWRITE ) FORM(DATA-RECORD)END-EXEC注意注意执行执行REWRITE语句之前，必须先执行语句之前，必须先执行READ UPDATE命令命令REWRITE 常见异常：常见异常：INVREQDELETE命令命令-用来删除文件中的一条记录用来删除文件中的一条记录EXEC CICS DELETE ) RIDFLD（KEY） RRNEND-EXEC注意注意只有只有KSDS 和和 RRDS文件记录才能够删除。如果存取的记录在删除之文件记录才能够删除。如果存取的记录在删除之前有为修改所做的检索，就不需要前有为修改所

9、做的检索，就不需要RIDFLD。REWRITE 常见异常：常见异常：INVREQNOTFND UNLOCK命令命令-用来释放被用来释放被READ UPDATE语句独占的记录语句独占的记录EXEC CICS UNLOCK )END-EXEC当下列情况发生时，当下列情况发生时，VSAM排他控制得以释放排他控制得以释放在文件中在文件中REWRITE修改的记录修改的记录DELETE记录记录通过发送通过发送UNLOCK命令取消修改的意向命令取消修改的意向任务结束任务结束有明确的有明确的SYNPOINT命令或任务终结，命令或任务终结，CICS排他控制也结束排他控制也结束 CICS中浏览中浏览VSAM文件文

10、件nSTARTBR命令命令nREADNEXT命令命令nREADPREV命令命令nENDBR命令命令nRESETBR命令命令STARTBR命令命令-用来开始一个用来开始一个VSAM文件浏览处理文件浏览处理EXEC CICS STARTBR ) RIDFLD(KEY) KEYLENGTH GTEQ/EQUAL END-EXECSTARTBR 常见异常：常见异常：NOTFND：INVEREQ：READNEXT命令命令-用来按照键值的用来按照键值的顺序检索下一条记录顺序检索下一条记录VSAM文件浏览处理文件浏览处理EXEC CICS READNEXT ) INTO(DATE-AREA） LENGTH

11、RIDFLD(KEY) KEYLENGTH- END-EXECREADNEXT 常见异常：常见异常：NOTFND：INVEREQ：ENDFILE：读到文件末尾。：读到文件末尾。(EOF异常状态）异常状态） TS QUEUEn写数据到临时存储队列n修改临时存储队列中的数据n从临时存储队列中读取数据n删除临时存储队列中的数据 写数据写数据EXEC CICS WRITEQ TS QUEUE（q-name） FROM（data-area） LENGTH（queue-len） ITEM（counter） - S9(4)comp MAIN/AUXILIARYEND-EXECWRITEQ TS常见异常INV

12、REQ 队列处于疑问状态IOERR 操作临时队列时出现输入输出错误时出现 ITEMERR 编号非法（不在队列范围内）；超过了允许的最大编号NOSPACE 临时存储队列中没有足够的空间存放要写的记录QIDERR 指定的队列不存在 修改数据修改数据EXEC CICS WRITEQ TS QUEUE（q-name） FROM（data-area） LENGTH（queue-len） ITEM（counter） REWRITEEND-EXEC 读取数据读取数据EXEC CICS READQ TS QUEUE（q-name） INTO（data-area） LENGTH（queue-len） ITEM（counter） END-EXEC READQ TS常见异常IOERRITEMERRQIDERRLENGERR 存储的数据记录大于指定在LENGTH选项中的变量的值 删除数据删除数据EXEC CICS DELETEQ TS QUEUE（q-name）END-EXEC DELETEQ TS常见异常INVERQIOERRQIDERR 一些基本的一些基本的CICS命令命令nRECEIVE 命令nSEND命令nSEND CONTRAL 命令nRETURN 命令其他其他CICS常用命令常用命令nASKTIMEnFORMATTIMEnENDnDEQnDELAYnCANCE