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

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

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

preforum初期处理.

preforum until FLG-X = "OFF"

PREFORUM 主处理

end PERFORUM.

preforum终了处理.

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

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

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

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

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

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

DATA DIVISION中的老谈FILE SECTION里定义文件的field时， 把相应的字段定义为侍扒碰数字型的就可以了。

比如FILE SAMPFILE中一个RECORD的长度是此凳40，你想把前五位读成数字型:

DATA DIIVISION.

FILE SECTION.

FD SAMPFILE.

01 SAMPFILE-REC.

05 SAMPFILE-NUM PIC 9(8).

05 FILLER PIC X(32).

---