COBOL上机-HELLO_文件拷贝.docxVIP

《COBOL商业编程技术》 实验报告1 学号 姓名 时间 2015年 月 日 成绩 上机练习1 实验要求： 编写简单的COBOL程序：HELLO WORLD，通过JCL编译连接并运行，输出“Hello World”。 将给定的COBOL程序CLAC1000成功编译并运行，输入用SYSIN定义Instream Data或者通过和用户交互来实现数据的输入。 编写COBOL程序实现文件的简单复制。 实验步骤及结果： LAB1 编写COBOL源程序，保存在IBMUSER.COBOL.SOURCE(HELLO)中 创建数据集IBMUSER.COBOL.LOAD，用于保存编译好的的程序 编写JCL实现COBOL源程序的编译连接。 编写JCL以运行编译好的程序 成功运行，结果输出如下 LAB2 COBOL源程序如下 IDENTIFICATION DIVISION. PROGRAM-ID. CALC1000. * ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. * DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 77 END-OF-SESSION-SWITCH PIC X VALUE N. 77 SALES-AMOUNT PIC 9(5)V99. 77 SALES-TAX PIC Z,ZZZ.99. * PROCEDURE DIVISION. 000-CALCULATE-SALES-TAX. PERFORM 100-CALCULATE-ONE-SALES-TAX UNTIL END-OF-SESSION-SWITCH = Y. DISPLAY END OF SESSION.. STOP RUN. * 100-CALCULATE-ONE-SALES-TAX. DISPLAY -----------------------------------------------. DISPLAY TO END PROGRAM, ENTER 0.. DISPLAY TO CALCULATE SALES TAX, ENTER THE SALES AMOUNT.. ACCEPT SALES-AMOUNT. IF SALES-AMOUNT = ZERO MOVE Y TO END-OF-SESSION-SWITCH ELSE COMPUTE SALES-TAX ROUNDED = SALES-AMOUNT * .0785 DISPLAY SALES TAX = SALES-TAX. 编译连接 运行及结果 （1）编写JCL运行程序，通过SYSIN定义Instream Data来输入数据。 结果：输入了两个要计算的数据10000、20000及结束标志0000000，所以循环部分执行了3次。 （2）通过TSO命令运行编译好的程序 具体如图： 结果分析：输入的数据接收格式为9(5)V99,从运行结果看是 左对齐，空位补0??? LAB3 要复制的数据集内容如图： COBOL源程序编写 标识部和环境部： 环境部的输入输出节-文件控制段将源程序内部文件和外部文件联系起来。SYSPT和SYSOPT用于在运行的JCL中指定具体数据集的DD名。 数据部定义了文件的数据格式和用到的参数 DATA DIVISION. FILE SECTION.