大型机COBOL大作业
更新时间:2023-10-04 07:44:01 阅读量: 综合文库 文档下载
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
正在阅读:
大型机COBOL大作业10-04
绿带2006试题(带答案)06-09
人生的味道作文【精选10篇】03-28
诚信教育以了解诚信的内涵02-20
化工中物料衡算和热量衡算公式04-20
施工现场标准化作业指引书05-08
军事理论(2018超星尔雅同济版)章节测验题参考答案(第3章 国防类03-28
某某村红白理事会材料03-23
- 多层物业服务方案
- (审判实务)习惯法与少数民族地区民间纠纷解决问题(孙 潋)
- 人教版新课标六年级下册语文全册教案
- 词语打卡
- photoshop实习报告
- 钢结构设计原理综合测试2
- 2014年期末练习题
- 高中数学中的逆向思维解题方法探讨
- 名师原创 全国通用2014-2015学年高二寒假作业 政治(一)Word版
- 北航《建筑结构检测鉴定与加固》在线作业三
- XX县卫生监督所工程建设项目可行性研究报告
- 小学四年级观察作文经典评语
- 浅谈110KV变电站电气一次设计-程泉焱(1)
- 安全员考试题库
- 国家电网公司变电运维管理规定(试行)
- 义务教育课程标准稿征求意见提纲
- 教学秘书面试技巧
- 钢结构工程施工组织设计
- 水利工程概论论文
- 09届九年级数学第四次模拟试卷
- 大型机
- 作业
- COBOL
- 小学生社团的作用
- 质量信得过班组事迹
- 北师大版七年级数学上册第三章《整数及其加减》单元测试卷及答案(1)
- 浙大远程14春-电子商务-通讯与计算机网络作业
- 健峰 生产管理培训
- 云南专版2019届中考物理模块五电电磁学第16讲生活用电习题20181020471
- 海尔集团服务营销策略正文
- 2009届外国语学院本科生毕业论文答辩安排
- 华为技术有限公司组织结构案例分析
- 浅谈丹培拉油画技法对中国油画的影响
- 古代汉语常用词
- 岩土体原位测试复习题
- 心理发展与教育习题集
- (冀教版)八年级生物上册教案与练习全集2
- 某三胞江苏员工手册 doc
- 动物寄生虫病学 - 复习题 - FXT222306 - 1212
- 天涯海角导游词
- 100m跑的技术与练习方法
- TJ-WI-SB机电设备管理工作手册(1稿)
- 04822073-2ff2-4ee9-b7a2-5eacdb76e7d5