大型机COBOL大作业

COBOL程序设计大作业

学院（系）： 专 业： 班 级： 学 号： 姓 名：

大连理工大学

Dalian University of Technology

1 程序功能描述

（1） 程序分为3个部分，分别是IBMUSER.COBOL.RPTCH、IBMUSER.RPT.DEAL、IBMUSER.RPT.SORT。其中IBMUSER.COBOL.RPTCH是主程序，调用IBMUSER.RPT.DEAL子程序，IBMUSER.RPT.DEAL又调用IBMUSER.RPT.SORT子程序。

（2） 存在一个新的交易数据表，其中有添加交易操作、更新交易操作、删除交易操作、增开一个分公司及其交易操作信息。对其进行合法性验证，错误的信息输入到错误文件中，正确的信息和原来老的交易信息合并并且排序后生成新的交易信息。

（3） 分公司信息表中记录分公司编号和分公司名字的对应情况，销售代表信息表中记录销售代表编号和姓名的对应情况，另外还有新生成的交易信息表，将3个表的信息同时按分公司和销售代表统计信息，生成统计报表。

2 程序流程图

IBMUSER.RPT.SORT程序流程图

2

开始 读入更改操作文件 文件结束 是 否 Goback 输入合法 否 是 排序并写入记录 写入错误信息 IBMUSER.RPT.DEAL程序流程图（调用子程序IBMUSER.RPT.SORT）

开始 调用RPT.SORT 读入更改操作文件 读入交易信息表 文件结束 是 否 Goback 操作位是1或2或3或4 否 是 将对应操作写入新的交易文件 将老的交易写入新的交易文件

3

IBMUSER.COBOL.RPTCH程序流程图（调用子程序IBMUSER.RPT.DEAL）

4

开始 调用RPT.DEAl 读入交易信息表 文件结束 查找对应分公司名字 结束 查找对应销售代表姓名 按分公司销售代表统计信息 将统计信息输出到报表 3 数据流程图

错误文件 错误 更新文件

正确 新的更新文 件 更新 销售代表名字信息 新的交易信 息

报表 统计 分公司名字信息 老的交易信息 4 程序代码分析

实验代码区

（1）IBMUSER.RPT.SORT

主要负责对更新信息的差错以及排序

000100 IDENTIFICATION DIVISION. 000200

000300 PROGRAM-ID. SORT1. 000400

000500 ENVIRONMENT DIVISION. 000600

000700 INPUT-OUTPUT SECTION.

5

本文来源：https://www.bwwdw.com/article/m6bd.html