大型机-cobol实验报告5-cobol商业编程技术

《大型机-cobol实验报告5-cobol商业编程技术》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、大连理工大学课程大作业课程名称：COBOL商业编程技术学院（系）：软件学院专业：大型机方向班级：学号：学生姓名：2011年4月25日一、实验内容(1)实验背景：假设有一公司要实现系统更新，将从开始至2011年一季度的数据备份到一个文件（数据集RYO.COBOL.RPT3000.FOLD）中，将第二季的数据保存在另一文件（数据集RYO.COBOL.RPT3000.FREC）中，要系统更新完成，要将两数据整合，并且第二季中的数据包括新的分公司的成立，原分公司的倒闭，原分公司数据更新。(2)实验要求：现要实现判断第二季度中的数据集中内容判断是否合法，将不合法的输出到错误文件（数据集RYO

2、.COBOL.RPT3000.FERR）中，将倒闭（关闭）的分公司数据输出到（数据集RYO.COBOL.RPT3000.FCLO）中，将新的整合后的数据保存到（数据集RYO.COBOL.RPT3000.FNEW），并最终打印成报表输出到（数据集RYO.COBOL.RPT3000Z.OUTPUT01）中。二：实验目的1）了解COBOL语言格式，数据类型和基本运算，能熟练掌握编写COBOL程序的技能2）熟练掌握EVALUATE语句和PERFORMUNTIL语句等COBOL流程控制3）熟练掌握对数据的排序和合并操作（SORT&MERGE）及对文件的操作4）掌握表的基本用法和优点5）熟练掌

3、握子程序调用方法和具体实现原理6）能正确编写JCL语言运行COBOL程序三：实验核心内容实验代码分类如下：（1）主程序代码（2）子程序代码（3）编译程序代码（4）运行程序代码（5）输入数据1：RYO.COBOL.RPT3000.FOLD（6）输入数据2：RYO.COBOL.RPT3000.FREC（6）输出数据1：RYO.COBOL.RPT3000.FERR，RYO.COBOL.RPT3000.FCLO（7）输出数据2：RYO.COBOL.RPT3000.FNEW（8）最终生成报表：RYO.COBOL.RPT3000Z.OUTPUT01主程序结构图：子程序结构图：000Updata

4、FoldRecord100EditFrecRecord300SortValidRecord400UpdataFoldRecord230ReleaseValidRocord210ReadFrecRecord220EditFrecRecord200EditFrecRecord240WriteErrorRecord500ProcessFrecRecord510ReturnFrecRecord553UpdatFoldRecord552insertnewrecord520ProcessFrecRecordFrecRecord551writeFcolRecord554RenameFoldrec

5、ordFrecRecord240WriteErrorRecord520WritefnewRecord240WriteErrorRecord（1）主程序代码IDENTIFICATIONDIVISION.*PROGRAM-ID.RPT3000Z.*ENVIRONMENTDIVISION.*INPUT-OUTPUTSECTION.*FILE-CONTROL.*SELECTCUSTMASTASSIGNTOCUSTMAS1.SELECTSALESRPTASSIGNTOSALESRP1.*DATADIVISION.*FILESECTION.*FDCUSTMAST.*01CUSTOMER-MAS

6、TER-RECORD.05CM-BRANCH-NUMBERPIC9(2).05CM-BRANCH-NAMEPICX(20).05CM-SALESREP-NUMBERPIC9(2).05CM-CUSTOMER-NUMBERPIC9(5).05CM-CUSTOMER-NAMEPICX(20).05CM-SALES-THIS-YTDPICS9(5)V9(2).05CM-SALES-LAST-YTDPICS9(5)V9(2).*FDSALESRPTRECORDCONTAINS132CHARACTERS.01PRINT-AREAPICX(132).*WORKING-STORAGESECTIO

7、N.*01SWITCHES.05CUSTMAST-EOF-SWITCHPICXVALUE"N".05FIRST-RECORD-SWITCHPICXVALUE"Y".05FIRST-SALESREP-SWITCHPICXVALUE"Y".*01CALCULATED-FIELDS.05CHANGE-AMOUNTPICS9(5)V99.*01CONTROL-FIELDS.05OLD-BRANCH-NUMBERPIC99.05OLD-SALESREP-NUMBERPIC99.