实验目的
1. 编写COBOL程序,体验COBOL编写过程
实验要求
2. 编写简单程序,运行程序
3. 对给出程序进行改错,使之正常运行。
实验过程
1. 接受从键盘输入的一条记录,将它复制入临时变量中。
输出结果:
其中加载程序的jcl为
分析
Cobol将顺序的数据序列按照用户定义的规则进行解析,故而对数据进行操作时,要特别注意数据内容的格式定义,字符长度类型等等。
2. 接收从键盘输入的记录,整合为一个记录进行输出。
输出结果:
其中调用的jcl定义如下:
分析
Accept语句会接受一行,放入变量,一行一个变量。
对于复合类型的变量,各个部分的变量是连续的存放,所以接收复合变量时,要清楚复合变量的格式。此处可以参考第一个程序。
3. 循环读入文件记录
源程序
输出结果
其中调用程序的jcl为:
分析
特别注意文件记录的格式内容,如果定义出错,会得到错误的文件结束信号!
4. 给定文件进行改错
源程序
输出结果
其中调用程序的jcl定义为:
分析
流内数据的格式还是要遵从定义,否则出错啊!!
实验总结
还是注意输入数据的格式与程序定义的格式之间的关系。否则容易出现错误。