cobol hello world

实验目的

1. 编写COBOL程序,体验COBOL编写过程

实验要求

2. 编写简单程序,运行程序
3. 对给出程序进行改错,使之正常运行。

实验过程

1. 接受从键盘输入的一条记录,将它复制入临时变量中。

clip_image001

输出结果:

clip_image002

其中加载程序的jcl为

clip_image004

分析

Cobol将顺序的数据序列按照用户定义的规则进行解析,故而对数据进行操作时,要特别注意数据内容的格式定义,字符长度类型等等。

2. 接收从键盘输入的记录,整合为一个记录进行输出。

clip_image005

clip_image006

输出结果:

clip_image007

其中调用的jcl定义如下:

clip_image009

分析

Accept语句会接受一行,放入变量,一行一个变量。

对于复合类型的变量,各个部分的变量是连续的存放,所以接收复合变量时,要清楚复合变量的格式。此处可以参考第一个程序。

3. 循环读入文件记录
源程序

clip_image010

clip_image011

输出结果

clip_image012

其中调用程序的jcl为:

clip_image014

分析

特别注意文件记录的格式内容,如果定义出错,会得到错误的文件结束信号!

4. 给定文件进行改错
源程序

clip_image016

clip_image018

输出结果

clip_image020

其中调用程序的jcl定义为:

clip_image022

分析

流内数据的格式还是要遵从定义,否则出错啊!!

实验总结

还是注意输入数据的格式与程序定义的格式之间的关系。否则容易出现错误。

转载于:https://www.cnblogs.com/martin-dlut/archive/2012/04/12/2443659.html

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值