亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費(fèi)注冊 查看新帖 |

Chinaunix

  平臺 論壇 博客 文庫
12下一頁
最近訪問板塊 發(fā)新帖
查看: 4417 | 回復(fù): 11
打印 上一主題 下一主題

請教cobol里顯示畫面的function key怎么定義和使用 [復(fù)制鏈接]

論壇徽章:
0
跳轉(zhuǎn)到指定樓層
1樓 [收藏(0)] [報(bào)告]
發(fā)表于 2008-09-22 12:37 |只看該作者 |倒序?yàn)g覽
如題，謝謝！

論壇徽章:
0
2樓 [報(bào)告]
發(fā)表于 2008-09-22 13:02 |只看該作者
1.在畫面文件里面功能鍵。
2.在cobol中WORKING-STORAGE SECTION定義：
     77  IND-OFF                        PIC   1     VALUE B"0".
       77  IND-ON                         PIC   1     VALUE B"1".
3.程序中使用：
EVALUATE    FKEY
     WHEN  CST-ENTER （回車）
      。。。。。
   WHEN  CST-F03
         。。。。。
   WHEN  CST-F05
END-EVALUATE.

以上就可以了。

論壇徽章:
0
3樓 [報(bào)告]
發(fā)表于 2008-09-22 13:23 |只看該作者
編譯不通過

FKEY，CST-F03等等都說沒定義，
還有IND-OFF，IND-ON在哪用？

論壇徽章:
0
4樓 [報(bào)告]
發(fā)表于 2008-09-22 13:48 |只看該作者
這個(gè)問題忘說了：
       01  KEY-AREA.
           03  CST-ENTER                  PIC  X(02)  VALUE "00".
           03  CST-END                    PIC  X(03)  VALUE "END".
           03  CST-F03                    PIC  X(02)  VALUE "03".
           03  CST-F05                    PIC  X(02)  VALUE "05".
      
       77  IND-OFF                        PIC   1     VALUE B"0".
       77  IND-ON                         PIC   1     VALUE B"1".

IND-OFF，IND-ON是控制畫面上面的指示器時(shí)用的。cobol不識別set on， set off ，所有用
              MOVE  IND-OFF           TO    IN99  OF  PANEL99-O-INDIC
                     MOVE  IND-ON            TO    IN59  OF  PANEL99-O-INDIC
這用方式控制。

論壇徽章:
0
5樓 [報(bào)告]
發(fā)表于 2008-09-22 15:17 |只看該作者
編譯就通過了，可是用那些function key都沒反應(yīng)啊


fkey呢？

[ 本帖最后由 KienR9 于 2008-9-22 15:26 編輯 ]

論壇徽章:
0
6樓 [報(bào)告]
發(fā)表于 2008-09-22 15:31 |只看該作者
在文件定義時(shí)定義：
SELECT TEST01D          ASSIGN TO WORKSTATION-TEST01D-SI
                                  ORGANIZATION IS TRANSACTION     
                                  CONTROL-AREA IS CTL-AREA.      
FKEY的定義：
01  CTL-AREA.
           03  FKEY                       PIC  X(02).

論壇徽章:
0
7樓 [報(bào)告]
發(fā)表于 2008-09-22 15:32 |只看該作者
能不能舉個(gè)完整的例子��？

論壇徽章:
0
8樓 [報(bào)告]
發(fā)表于 2008-09-22 15:34 |只看該作者
那 01  KEY-AREA.
           03  CST-ENTER                  PIC  X(02)  VALUE "00".
           03  CST-END                    PIC  X(03)  VALUE "END".
           03  CST-F03                    PIC  X(02)  VALUE "03".
           03  CST-F05                    PIC  X(02)  VALUE "05".
這些又放哪里�。�

論壇徽章:
0
9樓 [報(bào)告]
發(fā)表于 2008-09-22 16:01 |只看該作者
1.在畫面文件里面功能鍵。
2.cobol中文件定義時(shí)定義：
SELECT TEST01D          ASSIGN TO WORKSTATION-TEST01D-SI
                                  ORGANIZATION IS TRANSACTION     
                                  CONTROL-AREA IS CTL-AREA.      
2.在cobol中WORKING-STORAGE SECTION定義：
01  CTL-AREA.
           03  FKEY                       PIC  X(02).
01  KEY-AREA.
           03  CST-ENTER                  PIC  X(02)  VALUE "00".
           03  CST-F03                    PIC  X(02)  VALUE "03".

3.主程序中使用：
EVALUATE    FKEY
     WHEN  CST-ENTER （回車）
      。。。。。
   WHEN  CST-F03
         。。。。。

END-EVALUATE.

大體流程是這樣的。我這邊400新裝的系統(tǒng)，沒安裝cobol不好使，我也只能說說了，有問題自己調(diào)調(diào)吧

論壇徽章:
0
10樓 [報(bào)告]
發(fā)表于 2008-09-22 16:14 |只看該作者
可以了，謝謝了

不過有個(gè)問題，就是CTL-AREA和KEY-AREA這兩個(gè)是怎么拉上關(guān)系的？》
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則 發(fā)表回復(fù)

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報(bào)專區(qū)
中國互聯(lián)網(wǎng)協(xié)會會員  聯(lián)系我們：huangweiwei@itpub.net
感謝所有關(guān)心和支持過ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP