Studio可以打开COBOL的代码。如不美观是INPUT文件的话篡夺要用READ,可是在之前需要用OPEN
INPUT
filename
把文件先打开,然后才可以措置数据和保留OUTPUT
查看原帖>>
有两种方法1 把B文件CLOSE 再 OPEN 然后 READ
2 B文件创建成相对文件,然后利用相对文件的相对key读取
我一般习惯使用1方法
首先大概讲一下COBOL的一般批量文件出力的思路。在过程部里头 我们一般会写 初期处理 满足一个条件为止运行 主处理 终了处理。
preforum初期处理.
preforum until FLG-X = "OFF"
PREFORUM 主处理
end PERFORUM.
preforum终了处理.
这里初期处理 终了处理 一般 里头不会有循环 *** 作 除非 特殊业务。比如读取文件里头 要从第几个数据开始进行处理的时候 就需要用循环读数据。
在初期处理 一般做的就是整个程序只要做一次的 *** 作 里头就有 打开文件。
终了处理里头一般做的也是只做一次的 *** 作 比如关闭文件。
所以文件只要一次 开 一次关就可以了。
至于文件里头的数据的话 一般在初期处理里头 读取第一条 read 语句(写成section)。
然后在主处理里头 出力文件 也就是往外写数据 write 语句,然后再读取第二条 (调用初期处理的读数据的section)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)