欢迎来到天天文库
浏览记录
ID:13054388
大小:201.50 KB
页数:25页
时间:2018-07-20
《大型机-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
此文档下载收益归作者所有