论坛徽章:: 0

1楼 [报告]

发表于 2008-10-14 12:24 |显示全部楼层

Check file status .

XXRSG

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2008-10-15 17:23 |显示全部楼层

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

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

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

XXRSG

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2008-10-17 19:42 |显示全部楼层

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 操作系统 › AS400 › COBOL的SFL问题

COBOL的SFL问题 [复制链接]