COBOL读取文件并进行计算然后输出

首先大概讲一下COBOL的一般批量文件出力的思路。

在过程部里头 我们一般会写 初期处理 满足一个条件为止运行 主处理 终了处理。

preforum初期处理.

preforum until FLG-X = "OFF"

PREFORUM 主处理

end PERFORUM.

preforum终了处理.

这里初期处理 终了处理 一般 里头不会有循环 *** 作 除非 特殊业务。比如读取文件里头 要从第几个数据开始进行处理的时候 就需要用循环读数据。

在初期处理 一般做的就是整个程序只要做一次的 *** 作 里头就有 打开文件。

终了处理里头一般做的也是只做一次的 *** 作 比如关闭文件。

所以文件只要一次 开 一次关就可以了。

至于文件里头的数据的话 一般在初期处理里头 读取第一条 read 语句（写成section）。

然后在主处理里头 出力文件 也就是往外写数据 write 语句，然后再读取第二条 （调用初期处理的读数据的section）

有两种方法

1 把B文件CLOSE 再 OPEN 然后 READ

2 B文件创建成相对文件，然后利用相对文件的相对key读取

我一般习惯使用1方法

---