原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
《COBOL商业编程技术》实验报告1学号姓名时间 2015年月日成绩上机练习1实验要求：编写简单的COBOL程序：HELLO WORLD，通过JCL编译连接并运行，输出“Hello World”。将给定的COBOL程序CLAC1000成功编译并运行，输入用SYSIN定义InstreamData或者通过和用户交互来实现数据的输入。编写COBOL程序实现文件的简单复制。实验步骤及结果：LAB1编写COBOL源程序，保存在IBMUSER.COBOL.SOURCE(HELLO)中创建数据集IBMUSER.COBOL.LOAD，用于保存编译好的的程序编写JCL实现COBOL源程序的编译连接。编写JCL以运行编译好的程序成功运行，结果输出如下LAB2COBOL源程序如下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定义InstreamData来输入数据。结果：输入了两个要计算的数据10000、20000及结束标志0000000，所以循环部分执行了3次。（2）通过TSO命令运行编译好的程序具体如图：结果分析：输入的数据接收格式为9(5)V99,从运行结果看是左对齐，空位补0???LAB3要复制的数据集内容如图：COBOL源程序编写标识部和环境部：环境部的输入输出节-文件控制段将源程序内部文件和外部文件联系起来。SYSPT和SYSOPT用于在运行的JCL中指定具体数据集的DD名。数据部定义了文件的数据格式和用到的参数DATA DIVISION. FILE SECTION. FD IN-FILE RECORD CONTAINS 80 CHARACTERS RECORDING MODE IS F DATA RECORD IS STU-IN. 01 STU-IN.05 SID PIC 9(9).05 NON1 PIC X.
文档评论（0）