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

分析

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

实验总结

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

posted @ 2012-04-12 11:39  martin@dlut  阅读(941)  评论(0)    收藏  举报