大型机COBOL程序之简易报表打印.doc

《大型机COBOL程序之简易报表打印.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、COBOL实验报告2一，实验目的1，能够利用cobol程序实现一个报表的编辑和制作。2，能够对文件进行操作，比如说：打开，关闭，读和写3，了解COBOL的常用语句和一些常用的数据类型，能够利用编辑型数据实现数据的友好输出。4，能够运用sdsf修改程序中的错误5，学会编写稍微复杂的COBOL程序。二，实验原理和内容1，修改UTE20.COBOL.MURACH.EXERCISE(RPT1000X)使之正常运行。2，在RPT1000原有基础上改进成增强的报表打印程序。3，利用给定的数据和格式独立的制作一个报表三，实验环境PC机和TSO下的ISPF环境四，实验步

2、骤1，步骤1和步骤2：修改UTE20.COBOL.MURACH.EXERCISE(RPT1000X)使之正常运行，并在此基础上改进成增强型的报表打印程序。1.1代码：000100IDENTIFICATIONDIVISION.000200000300PROGRAM-ID.RPT1000.000400000500ENVIRONMENTDIVISION.000600000700INPUT-OUTPUTSECTION.000800000900FILE-CONTROL.001000001100SELECTCUSTMASTASSIGNTOCUSTMAST.00120

3、0SELECTSALESRPTASSIGNTOSALESRPT.001300001400DATADIVISION.001500001600FILESECTION.001700001800FDCUSTMAST.00190000200001CUSTOMER-MASTER-RECORD.00210005CM-BRANCH-NUMBERPIC9(2).00220005CM-SALESREP-NUMBERPIC9(2).00230005CM-CUSTOMER-NUMBERPIC9(5).00240005CM-CUSTOMER-NAMEPICX(20).002500

4、05CM-SALES-THIS-YTDPICS9(5)V9(2).00260005CM-SALES-LAST-YTDPICS9(5)V9(2).002700002800FDSALESRPT.00290000300001PRINT-AREAPICX(132).003100003200WORKING-STORAGESECTION.00330000340001SWITCHES.00350005CUSTMAST-EOF-SWITCHPICXVALUE"N".00360000370001PRINT-FIELDS.00380005PAGE-COUNTPICS9(3)

5、VALUEZERO.00390005LINES-ON-PAGEPICS9(3)VALUE+55.00400005LINE-COUNTPICS9(3)VALUE+99.00410005SPACE-CONTROLPICS9.00420000430001TOTAL-FIELDS.00440005GRAND-TOTAL-THIS-YTDPICS9(7)V99VALUEZERO.00450005GRAND-TOTAL-LAST-YTDPICS9(7)V99VALUEZERO.00460001CALCULATED-FILEDS.05CHANGE-AMOUNTPICS

6、9(5)V99.00470001CURRENT-DATE-AND-TIME.00480005CD-YEARPIC9999.00490005CD-MONTHPIC99.00500005CD-DAYPIC99.00510005CD-HOURSPIC99.00520005CD-MINUTESPIC99.00530005FILLERPICX(9).00540000550001HEADING-LINE-1.00560005FILLERPICX(7)VALUE"DATE:".00570005HL1-MONTHPIC9(2).00580005FILLERPICX(1)

7、VALUE"/".00590005HL1-DAYPIC9(2).00600005FILLERPICX(1)VALUE"/".00610005HL1-YEARPIC9(4).00620005FILLERPICX(11)VALUESPACE.00630005FILLERPICX(20)VALUE"YEAR-TO-DATESALESR".00640005FILLERPICX(20)VALUE"EPORT".00650005FILLERPICX(8)VALUE"PAGE:".00660005Hl1-PAGE-NUMBERPICZZZ9.00670005FILLE

8、RPICX(52)VALUESPACE.00680000690001HEADIN