COBOL的SFL问题

XXRSG

在COBOL里写SUBFILE 有两种方式：1。 手动翻页，就是按Pgup or Pgdn 后才去读文件往SUBFILE 写数据。
                                   2。 自动翻页，就是一次性把数据全部写到SUBFILE 里。

方法1：控制比较麻烦 。 方法2，控制简单，但是subfile的条数，最大只能为9999，但是方法1 没有这个限制。

一般用方法2，用户on-line作业，一般按几次pgup or pgdn 就可以了，记录几百条就很多了。

liushuang

求  出错原因和解决方法！！！！！

digitalchina

手工控制,用记数器算一下当前是不是9999行,超过9999就不要WRITE了.

A            ZZCSRW         3  0H      TEXT('CURSOR ROW')   
判断一下.

seouldeng

原帖由 liushuang 于 2008-10-15 15:37 发表
现在是9998条的时候能写，但在写9999条的时候就跳出来了。

看看你写程序的时候是不是加多了一了，哈哈

不过记录格式是不能超过9999条的，SUBFILE的最大记录数啊

digitalchina

有一点要注意,SFL 可以WRITE/REWRITE 但是不能DELETE RECORD.
所以计数的时候要注意.

XXRSG

没有必要在程序里面去计算SUBFILE的条数了,直接对Display file 的FILE STATUS 进行判断就可以了,如果状态 = 9M,那就说明已经写到最后一条了