大型机-cobol大作业-报表的更新练习

《大型机-cobol大作业-报表的更新练习》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、COBOL程序设计大作业学院（系）：专业：班级：学号：姓名：大连理工大学DalianUniversityofTechnology实验名称：报表的更新练习1程序功能描述本程序是一个有关公司阶段性报表的控制程序，将各个分公司以及其中销售人员的业绩汇总做成报表，本程序实现如下功能：1将整个销售数据按分公司、销售人员、客户排序，形成有个有顺序，有规律的报表；2形成一个三位表，一维表为公司号，二维表为本公司销售人员号，三维表此销售人员所发展的客户号；3通过以上三位表，测试控制信息是否正确；4若控制信息正确

2、，则对原始表做相应的操作，若不正确则输出错误原因5通过公司名与公司号对应的表检测出公司的名字，并输出，检测出销售人员的名字，并输出；6汇总信息后，将各个销售人员业绩做总结，将每个分公司的业绩作总结，最后总结整个公司这一阶段的销售业绩。2实验目的：通过对本程序的编写，充分了解对报表的练习，并熟悉子程序的调用以及排序与表的使用。3试验中用的的COBOL技巧1文件的打开和关闭，READ和WRITE的运用；2数据的定义，包括数据的重定义，数组的定义（包括数组INDEX的使用）3PERFROM以及其循环的

3、使用；4数组SEARCH的应用；5条件语句IF-ELSE和EVALUATE的使用；6CALL子程序的调用（编译及连接）；实验代码及分析：(1)实验思路首先写第一段子程序，通过排序，将原有信息进行按分公司号，销售人员好以及用户号三个关键字排序，排好序的数据输入到TEST.INPUTER文件中；接着写第二段子程序，首先通过读取第一段子程序产生的文件，在文件中建立一个简单的三维表，记录所有分公司号，以及其下销售人员号，销售人员下的用户号；接着，每次读取一条控制信息，通过首先查看控制语句是否正确，如果错

4、误，标记错误类型并结束；如果正确，则查找分公司号，销售人员好以及用户号，找到与否；判断错误类型时，如是增加，则直接写到输出的文件中，如果是删除，则查找要删除的信息是否在之前的三位表中，在，则标记删除,不在则报错；如为客户退款，则查找此客户对应的客户号，销售号以及公司号，存在则在本年记录中减去退款，如果不在则报错。如果控制信息错误，则将其写入到EERORTABLE文件中，如果控制信息正确，则写如RIGHTTABLE文件中；最后再次读入输入文件，通过正确的控制信息修改表并输出到TEST.OUTPUT

5、ER文件中。最后写整理添加公司名字和销售人员名字。通过读入写有分公司与销售人员对应名字的文件，将其暂时存储在两个表中，在读入文件记录是，在表中分别查找销售人员名和分公司名，并将其写入，输出。（2）实验代码如下：1）排序代码2）判断输入控制信息正确性并修改表的代码3）显示公司名及销售人员名字的代码由于本段程序是由上几次试验的程序改写而成，所以此处只给出了修改部分，其余部分省略。（3）实验原数据如下1）排序中用到的数据如下：<1>输入数据<2>输出数据2）控制语句中用的数据如下；<1>输入的排好序的

6、数据为上一步的输出数据。<2>输入的控制表信息如下：<3>输出的正确的控制表的信息如下：<4>输出的错误控制信息的表如下：<5>输出的控制添加后的表信息如下：(3)添加名字部分的数据如下：<1>输入数据为上一步的输出数据。<2>添加后输出信息如下：实验总结通过本次实验，对表的运用有个更进一步的理解，最开始的时候表的输入总是出现问题，经常写不进去或者写到了错的位置，经过检查发现是有事逻辑写的比较混乱，通过每次由DISPLAY来显示表中的数据来查出了错误；其次就是在运行调用的子程序时比较繁琐。最后有

7、一个问题没有解决，是不是有些文件多次读写之后映射就会出现问题？此次实验中，书写正确控制信息的数据集后来就一直出现错误，每次都是将应写在错误信息表中的信息又写进此表中一次，后来实在查不出错误在哪里所以重建了一个数据集写正确信息，结果就对了。