大型机-COBOL实验报告5-COBOL商业编程技术.docVIP

大连理工大学 课程大作业 课程名称： COBOL商业编程技术 学院（系）： 软件学院 专 业： 大型机方向 班 级： 学 号： 学生姓名： 2011年 4月 25日 实验内容 实验背景：假设有一公司要实现系统更新，将从开始至2011年一季度的数据备份到一个文件（数据集RYO.COBOL.RPT3000.FOLD）中，将第二季的数据保存在另一文件（数据集RYO.COBOL.RPT3000.FREC）中，要系统更新完成，要将两数据整合，并且第二季中的数据包括新的分公司的成立，原分公司的倒闭，原分公司数据更新。 实验要求：现要实现判断第二季度中的数据集中内容判断是否合法，将不合法的输出到错误文件（数据集RYO.COBOL.RPT3000.FERR）中，将倒闭（关闭）的分公司数据输出到（数据集RYO.COBOL.RPT3000.FCLO）中，将新的整合后的数据保存到（数据集RYO.COBOL.RPT3000.FNEW），并最终打印成报表输出到（数据集RYO.COBOL.RPT3000Z.OUTPUT01）中。 二：实验目的 了解COBOL语言格式，数据类型和基本运算，能熟练掌握编写COBOL 程序的技能 熟练掌握EVALUATE语句和PERFORM UNTIL语句等COBOL流程控制 熟练掌握对数据的排序和合并操作（SORTMERGE）及对文件的操作 掌握表的基本用法和优点 熟练掌握子程序调用方法和具体实现原理 能正确编写JCL语言运行COBOL程序 三：实验核心内容 实验代码分类如下： 主程序代码 子程序代码 编译程序代码 运行程序代码 输入数据1：RYO.COBOL.RPT3000.FOLD （6） 输入数据2：RYO.COBOL.RPT3000.FREC 输出数据1：RYO.COBOL.RPT3000.FERR，RYO.COBOL.RPT3000.FCLO 输出数据2：RYO.COBOL.RPT3000.FNEW 最终生成报表：RYO.COBOL.RPT3000Z.OUTPUT01 主程序结构图： 子程序结构图： （1）主程序代码 000100 IDENTIFICATION DIVISION. 000200* 000300 PROGRAM-ID. RPT3000Z. 000400* 000500 ENVIRONMENT DIVISION. 000600* 000700 INPUT-OUTPUT SECTION. 000800* 000900 FILE-CONTROL. 001000* 001100 SELECT CUSTMAST ASSIGN TO CUSTMAS1. 001200 SELECT SALESRPT ASSIGN TO SALESRP1. 001300* 001400 DATA DIVISION. 001500* 001600 FILE SECTION. 001700* 001800 FD CUSTMAST. 001900* 002000 01 CUSTOMER-MASTER-RECORD. 002100 05 CM-BRANCH-NUMBER PIC 9(2). 002110 05 CM-BRANCH-NAME PIC X(20). 002200 05 CM-SALESREP-NUMBER PIC 9(2). 002300 05 CM-CUSTOMER-NUMBER PIC 9(5). 002400 05 CM-CUSTOMER-NAME PIC X(20). 002500 05 CM-SALES-THIS-YTD PIC S9(5)V9(2). 002600 05 CM-SALES-LAST-YTD PIC S9(5)V9(2). 002700* 002800 FD SALESRPT 002900 RECORD CONTAINS 132 CHARACTERS. 003000 01 PRINT-AREA PIC X(132). 003100* 003200 WORKING-STORAGE SECTION. 003300* 003400 01 SWITCHES. 003500 05 CUSTMAST-EOF-SWITCH PIC X VALUE N. 003501