大型机-COBOL大作业-报表的更新练习.docxVIP

COBOL程序设计大作业 学院（系）： 专 业： 班 级： 学 号： 姓 名： 大连理工大学 DalianUniversity of Technology 实验名称：报表的更新练习 1程序功能描述 本程序是一个有关公司阶段性报表的控制程序，将各个分公司以及其中销售人员的业绩汇总做成报表，本程序实现如下功能： 1 将整个销售数据按分公司、销售人员、客户排序，形成有个有顺序，有规律的报表； 2 形成一个三位表，一维表为公司号，二维表为本公司销售人员号，三维表此销售人员所发展的客户号； 3 通过以上三位表，测试控制信息是否正确； 4 若控制信息正确，则对原始表做相应的操作，若不正确则输出错误原因 5 通过公司名与公司号对应的表检测出公司的名字，并输出，检测出销售人员的名字，并输出； 6 汇总信息后，将各个销售人员业绩做总结，将每个分公司的业绩作总结，最后总结整个公司这一阶段的销售业绩。 2实验目的： 通过对本程序的编写，充分了解对报表的练习，并熟悉子程序的调用以及排序与表的使用。 3 试验中用的的COBOL技巧 1 文件的打开和关闭，READ和WRITE的运用； 2 数据的定义，包括数据的重定义，数组的定义（包括数组INDEX的使用） 3 PERFROM以及其循环的使用； 4 数组SEARCH的应用； 5 条件语句 IF-ELSE和EVALUATE的使用； 6 CALL子程序的调用（编译及连接）； 实验代码及分析： (1)实验思路 首先写第一段子程序，通过排序，将原有信息进行按分公司号，销售人员好以及用户号三个关键字排序，排好序的数据输入到TEST.INPUTER文件中； 接着写第二段子程序，首先通过读取第一段子程序产生的文件，在文件中建立一个简单的三维表，记录所有分公司号，以及其下销售人员号，销售人员下的用户号；接着，每次读取一条控制信息，通过首先查看控制语句是否正确，如果错误，标记错误类型并结束；如果正确，则查找分公司号，销售人员好以及用户号，找到与否；判断错误类型时，如是增加，则直接写到输出的文件中，如果是删除，则查找要删除的信息是否在之前的三位表中，???，则标记删除,不在则报错；如为客户退款，则查找此客户对应的客户号，销售号以及公司号，存在则在本年记录中减去退款，如果不在则报错。如果控制信息错误，则将其写入到EEROR TABLE文件中，如果控制信息正确，则写如RIGHT TABLE文件中；最后再次读入输入文件，通过正确的控制信息修改表并输出到TEST.OUTPUTER文件中。 最后写整理添加公司名字和销售人员名字。通过读入写有分公司与销售人员对应名字的文件，将其暂时存储在两个表中，在读入文件记录是，在表中分别查找销售人员名和分公司名，并将其写入，输出。 （2）实验代码如下： 1）排序代码 2）判断输入控制信息正确性并修改表的代码 3）显示公司名及销售人员名字的代码 由于本段程序是由上几次试验的程序改写而成，所以此处只给出了修改部分，其余部分省略。 （3）实验原数据如下 1）排序中用到的数据如下： 1输入数据 2输出数据 2）控制语句中用的数据如下； 1输入的排好序的数据为上一步的输出数据。 2输入的控制表信息如下： 3输出的正确的控制表的信息如下： 4输出的错误控制信息的表如下： 5输出的控???添加后的表信息如下： (3)添加名字部分的数据如下： 1输入数据为上一步的输出数据。 2添加后输出信息如下： 实验总结 通过本次实验，对表的运用有个更进一步的理解，最开始的时候表的输入总是出现问题，经常写不进去或者写到了错的位置，经过检查发现是有事逻辑写的比较混乱，通过每次由DISPLAY来显示表中的数据来查出了错误；其次就是在运行调用的子程序时比较繁琐。 最后有一个问题没有解决，是不是有些文件多次读写之后映射就会出现问题？此次实验中，书写正确控制信息的数据集后来就一直出现错误，每次都是将应写在错误信息表中的信息又写进此表中一次，后来实在查不出错误在哪里所以重建了一个数据集写正确信息，结果就对了。