COBOL上机-HELLO-文件拷贝.docx

《COBOL上机-HELLO-文件拷贝.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《COBOL商业编程技术》实验报告1学号姓名时间2015年月日成绩上机练习1实验要求：1.编写简单的COBOL程序：HELLOWORLD，通过JCL编译连接并运行，输出“HelloWorld”。2.将给定的COBOL程序CLAC1000成功编译并运行，输入用SYSIN定义InstreamData或者通过和用户交互来实现数据的输入。3.编写COBOL程序实现文件的简单复制。实验步骤及结果：LAB11.编写COBOL源程序，保存在IBMUSER.COBOL.SOURCE(HELLO)中2.创建数据集IBMUSER.COB

2、OL.LOAD，用于保存编译好的的程序3.编写JCL实现COBOL源程序的编译连接。1.编写JCL以运行编译好的程序2.成功运行，结果输出如下LAB21.COBOL源程序如下IDENTIFICATIONDIVISION.PROGRAM-ID.CALC1000.*ENVIRONMENTDIVISION.INPUT-OUTPUTSECTION.*DATADIVISION.FILESECTION.WORKING-STORAGESECTION.77END-OF-SESSION-SWITCHPICXVALUE"N".77SAL

3、ES-AMOUNTPIC9(5)V99.77SALES-TAXPICZ,ZZZ.99.*PROCEDUREDIVISION.000-CALCULATE-SALES-TAX.PERFORM100-CALCULATE-ONE-SALES-TAXUNTILEND-OF-SESSION-SWITCH="Y".DISPLAY"ENDOFSESSION.".STOPRUN.*100-CALCULATE-ONE-SALES-TAX.DISPLAY"------------------------------------------

4、-----".DISPLAY"TOENDPROGRAM,ENTER0.".DISPLAY"TOCALCULATESALESTAX,ENTERTHESALESAMOUNT.".ACCEPTSALES-AMOUNT.IFSALES-AMOUNT=ZEROMOVE"Y"TOEND-OF-SESSION-SWITCHELSECOMPUTESALES-TAXROUNDED=SALES-AMOUNT*.0785DISPLAY"SALESTAX="SALES-TAX.1.编译连接2.运行及结果（1）编写JCL运行程序，通过SYSI

5、N定义InstreamData来输入数据。结果：输入了两个要计算的数据10000、20000及结束标志0000000，所以循环部分执行了3次。（2）通过TSO命令运行编译好的程序具体如图：结果分析：输入的数据接收格式为9(5)V99,从运行结果看是左对齐，空位补0???LAB31.要复制的数据集内容如图：2.COBOL源程序编写（1）标识部和环境部：环境部的输入输出节-文件控制段将源程序内部文件和外部文件联系起来。SYSPT和SYSOPT用于在运行的JCL中指定具体数据集的DD名。（2）数据部定义了文件的数据格式和用

6、到的参数DATADIVISION.FILESECTION.FDIN-FILERECORDCONTAINS80CHARACTERSRECORDINGMODEISFDATARECORDISSTU-IN.01STU-IN.05SIDPIC9(9).05NON1PICX.05NAMEPICX(6).05NON2PICX.05GRADEPIC999V9.FDOUT-FILERECORDCONTAINS80CHARACTERSRECORDINGMODEISFDATARECORDISSTU-OUT.01STU-OUT.05SIDP

7、IC9(9).05NON1PICX.05NAMEPICX(6).05NON2PICX.05GRADEPIC999V9.WORKING-STORAGESECTION.77END-SWITCHPICXVALUE"N".77NPIC99VALUEZERO.*（3）过程部1.编译连接和运行的JCL依次如图1.执行成功，复制完成的文件如图2.SDSF输出如下：疑问：为什么N（copy次数）为6？解答：实验心得：通过本次实验掌握了—COBOL的源程序基本组成；编译连接和运行的JCL编写；TSO命令运行编译好的程序；—文件操作的基

8、本要素：OPEN/CLOSE、READ/WRITE；PERFORM语句。发现了不足：一个不注意的小错，如拼写错误或0/O混淆，同一个名的前后不一致，可能等导致半天的查错。