开发小型银行账户管理信息系统(精通cobol后面的程序问.docVIP

*.copy(bampsmm)如果要在主程序中引用map中的变量selectm、dispm，需要在working-storage section中加入代码“copy dfhaid。”(输入到变量中的标识键)和“copy bampsmm(map group name)。”如果想要设置一个map上字段的属性可以用下面将它引入所有cics命令提供一个RESP选项，它的参数用来返回命令结果，cobol中使用S9(8) COMP型变量做参数，cics根据命令结果，把一个二进制数返回在这个变量里，与DFHRESP(NORMAL)相等则说明处理成功；如果与DFHRESP(LENGERR)相等则说明长度错误等。通信区（commarea，即communication area）用来在程序之间传递数据。要定义在你的cobol程序的LINKAGE SECTION内，名字总是为DFHCOMMAREA。不管你是否在程序中指定了通信区，cics在编译时总会在你的程序的LINKAGE SECTION内输入它。如果你没有在程序中指定DFHCOMMAREA，则在编译时，系统会指定一个字节的DFHCOMMAREA放在你的LINKAGE SECTION内，编译也会总在你的PROCEDURE DIVISION语句后加上USING DFHCOMMAREA短语。你可以使用通信区在伪对话交易之间将数据从起始交易传送到后继交易中。WORKING-STORAGE 中定义COMMSTART，用来发送数据；此处也可以在LINKAGE SECTION中定义。LINKAGE SECTION中定义DFHCOMMAREA，用来接受数据。Cics程序可以在LINK、XCTL和RETURN TRANSID命令中使用COMMAREA在程序间传递数据。………………………………………………..以上代码的意思是：在调用程序中将status-i赋值为f，通过RETURN TRANSID向被调用程序（交易号为map1的程序，此处为调用程序自身）传递数据，即status-c为f。LINK、XCTL和RETURN的区别：参考《主机一本通》第22章 P650如果cics程序是第一次执行，那么commarea的长度就是0，即EIBCALEN=0（告诉应用程序通信区的长度）,然后显示map并且返回到交易本身。确定输入的功能键代码各功能键的值请参考《一本通》P644*.copy(bamapaf)问题：F7向上查找输出信息，发现在cics程序中用copy bamspaf引入的map的fields定义的变量与*.copy中的物理映像集的定义不一样可以看到此处用up2a、up2o、disp2a、disp2o代替了物理映像集中的update2a、update2o、displ2a、displ2o。以上问题原因是：定义变量的名字为“*-*”，中间的“-”导致数据结构出现问题或者是与其他人定义的map set名一致了，导致两个人同时更新只能更新一个人的修改。写在cics操作vsam文件之前：Ceda def一个file；install一个file。在定义文件时一定要注意定义它为可读、可写、可更新、可删除等（默认为可读）。需要关闭文件才能改变文件的属性。可以通过cemt I file查询文件状态。想要在ispf中用ditto ve编写vsam文件要在cics中关闭vsam文件，具体命令为cemt set file close（只能临时的改变vsam文件的属性，如果重启服务器还需要重新设置，所以建议最好在定义时将所有属性都定义为yes）.Cics操作vsam文件。REWRITE命令用来更改数据，要跟在一个READ UPDATE之后，而且KSDS的KEY是不能改变的，对Queue的操作：此处一定要将cics中的length定义为s9（4） comp，即16位的二进制数，否则在进行READQ和WRITEQ的操作时，在第一次时会出现lengerr的cics错误，就不能用PERFORM UNTIL ERR-CODE NOT = DFHRESP(NORMAL)进行循环判定了。读取Queue此处也可以用next来Readq，但是next和item的区别就是：next的检索位置的游标是不断递增的，而item指定的相对位置是不变的，即next是每调用一次readq就向后读取，直到queue的末尾出现异常。当generate生成的字符映像集在*.copy中，此时先jcl提交cics程序，再jcl提交map，否则会出现错误提示下面move语句非法在sdf ii中定义filed数组。按照需求，如果在account number处输入的是小于10个字节的数字，就跳转到查询界面，但是如下录入的是一个字符不是数字可以通过修改字符映像集中map变量的属性来完成这