cobol中如何连接带有小windws的subfile？

pp_123_abc

如题！~~~
cobol中如何连接带有小windws的subfile？

yzclxw

你想怎样连接呢，是call带windws的subfile呢，还是程序里面自带呢？

pp_123_abc

DSPF 是 subfile，并且确认画面是个windws
现在用cobol把windws引用进来，如何引用？


ps：说白了，就是用cobol写subfile，只不过画面上多了一个windws

[ 本帖最后由 pp_123_abc 于 2008-9-17 16:09 编辑 ]

XXRSG

你是要在windws带SUBFILE?

还有,你是要实现这样的逻辑: 光标定位在某个Filed的时候,然后按某个功能键(比如F1 或者F4)时,出现一个windws?

pp_123_abc

原帖由 XXRSG 于 2008-9-17 22:27 发表
你是要在windws带SUBFILE?

还有,你是要实现这样的逻辑: 光标定位在某个Filed的时候,然后按某个功能键(比如F1 或者F4)时,出现一个windws?

对，查不多就是你说的那个意思！cobol里怎么用呢？

yzclxw

我觉的你在dspf里面定义的SFLCSRRRN(&#CRRN)  ，在程序里面使用#CRRN就可以了。

     A          R WINDWC1
     A                                      WINDOW(10 35 7 40)
     A          R WINDWC2
     A                                      WINDOW(WINDWC1)
     A                                      CF11
     A                                      CF12
     A                                      OVERLAY PROTECT
     A                                  2  2'登録しますか？'
     A                                      DSPATR(HI)
     A                                  5  4'はい：Ｆ１２'
     A                                      DSPATR(HI)
     A                                  5 20'いいえ：Ｆ１１'
     A                                      DSPATR(HI)

在cobol里面
WRITE  DSP-REC  FORMAT  IS  "WINDWC1"
WRITE  DSP-REC  FORMAT  IS  "WINDWC2"
READ   DSPFFILE  FORMAT  IS  "WINDWC2"
                            INDICATORS WINDWC2-I-INDIC

不知道对你有没有帮助

pp_123_abc

原帖由 yzclxw 于 2008-9-18 13:37 发表
我觉的你在dspf里面定义的SFLCSRRRN(&#CRRN)  ，在程序里面使用#CRRN就可以了。

     A          R WINDWC1
     A                                      WINDOW(10 35 7 40)
     A          R WINDWC2
...

我已经解决了，不过还是谢谢你！~~~~~~~~~非常3Q！~~~~~~

KienR9

原帖由 yzclxw 于 2008-9-18 13:37 发表
我觉的你在dspf里面定义的SFLCSRRRN(&#CRRN)  ，在程序里面使用#CRRN就可以了。

     A          R WINDWC1
     A                                      WINDOW(10 35 7 40)
     A          R WINDWC2
...

READ   DSPFFILE  FORMAT  IS  "WINDWC2"
                            INDICATORS WINDWC2-I-INDIC

这里INDICATORS WINDWC2-I-INDIC是什么意思啊？怎么用？