非常急 COBOL 调用SFL画面光标控制

4321258sun

我现在用COBOL调用SFL画面，当我在SFL数据的最后一条时输入错的数据，
此时应该CHK此条错误并光标定位在此条，但走到REWRITE光标时抱错，
此前的数据都可正常CHK运行，请高手帮忙。。。。。。。。

franliu

在你的subfile control record中定义：
...
     A          R SFLCTL1                           SFLCTL(SFLREC)  
     A            XRRN1          4S 0H           SFLRCDNBR      

...
        A            SFLREC                            SFL
        A            XOPTN          2A  B  9  2              
        A  60                                               DSPATR(PC)   


记住你那出错的行号，然后把把行号赋值给变量xrrn1, 这样就保证出错行显示在屏幕上，再用 indicator 定位光标在出错字段上，那就行啦。

例如 XOPTN 出错，你就 SET ON *IN60.

你那问题很可能是SUBFILE回到显示第一页，而出错的行不在第一页。

[ 本帖最后由 franliu 于 2009-11-27 17:33 编辑 ]

4321258sun

真是好人 高手

4321258sun

我画面原先定义过了，就是到单独最后一条时出错？？？

franliu

就是光标没有定位在你想定位的行上。其他都正常？如果倒数第二行出错能正常定位？

如果是这样，debug 你的程序，在 rewrite 最后一行之前检查你那定位的 indicator 的状态。

[ 本帖最后由 franliu 于 2009-11-27 17:37 编辑 ]

4321258sun

倒数第2行能正常抱错，就是最后一行不行

4321258sun

我一共17条数据现在传得是17呀？？？

franliu

debug了吗？

huangxkst

debug一下,看看你的sfl相对记录号,只要相对记录号没有出错就不会有问题..

huangxkst

这种写法只是针对于记录少的,如果多于9999,那么程序需要另行处理,可以写一个自己控制上下翻页,这就比较好..