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

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

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

2、文件（数据集RYO.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）及对文件的操作

3、4）掌握表的基本用法和优点5）熟练掌握子程序调用方法和具体实现原理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.OUTP

4、UT01主程序结构图：子程序结构图：000UpdataFoldRecord100EditFrecRecord300SortValidRecord400UpdataFoldRecord230ReleaseValidRocord210ReadFrecRecord220EditFrecRecord200EditFrecRecord240WriteErrorRecord500ProcessFrecRecord510ReturnFrecRecord553UpdatFoldRecord552insertnewrecord520ProcessFrecRecordFrecReco

5、rd551writeFcolRecord554RenameFoldrecordFrecRecord240WriteErrorRecord520WritefnewRecord240WriteErrorRecord（1）主程序代码000100IDENTIFICATIONDIVISION.000200*000300PROGRAM-ID.RPT3000Z.000400*000500ENVIRONMENTDIVISION.000600*000700INPUT-OUTPUTSECTION.000800*000900FILE-CONTROL.001000*001100SELEC

6、TCUSTMASTASSIGNTOCUSTMAS1.001200SELECTSALESRPTASSIGNTOSALESRP1.001300*001400DATADIVISION.001500*001600FILESECTION.001700*001800FDCUSTMAST.001900*00200001CUSTOMER-MASTER-RECORD.00210005CM-BRANCH-NUMBERPIC9(2).00211005CM-BRANCH-NAMEPICX(20).00220005CM-SALESREP-NUMBERPIC9(2).00230005CM-C

7、USTOMER-NUMBERPIC9(5).00240005CM-CUSTOMER-NAMEPICX(20).00250005CM-SALES-THIS-YTDPICS9(5)V9(2).00260005CM-SALES-LAST-YTDPICS9(5)V9(2).002700*002800FDSALESRPT002900RECORDCONTAINS132CHARACTERS.00300001PRINT-AREAPICX(132).003100*003200WORKING-STORAGESECTION.003300*00340001SWITCHES.0035000

8、5CUST