免费注册	查看新帖 \|


平台论坛博客文库

› 论坛 › 操作系统 › AS400 › 请教cobol里显示画面的function key怎么定义和使用

12 / 2 页下一页

最近访问板块

发新帖

查看: 4346 | 回复: 11

上一主题

下一主题

请教cobol里显示画面的function key怎么定义和使用 [复制链接]

论坛徽章:: 0

电梯直达

跳转到指定楼层

1楼 [收藏(0)] [报告]

发表于 2008-09-22 12:37 |只看该作者 |倒序浏览

如题，谢谢！

文库|博客

论坛徽章:: 0

2楼 [报告]

发表于 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.

以上就可以了。

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

论坛徽章:: 0

3楼 [报告]

发表于 2008-09-22 13:23 |只看该作者

编译不通过

FKEY，CST-F03等等都说没定义，
还有IND-OFF，IND-ON在哪用？

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

论坛徽章:: 0

4楼 [报告]

发表于 2008-09-22 13:48 |只看该作者

这个问题忘说了：
   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是控制画面上面的指示器时用的。cobol不识别set on， set off ，所有用
            MOVE  IND-OFF          TO IN99  OF  PANEL99-O-INDIC
                  MOVE  IND-ON          TO IN59  OF  PANEL99-O-INDIC
这用方式控制。

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

论坛徽章:: 0

5楼 [报告]

发表于 2008-09-22 15:17 |只看该作者

编译就通过了，可是用那些function key都没反应啊

fkey呢？

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

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

论坛徽章:: 0

6楼 [报告]

发表于 2008-09-22 15:31 |只看该作者

在文件定义时定义：
SELECT TEST01D       ASSIGN TO WORKSTATION-TEST01D-SI
                              ORGANIZATION IS TRANSACTION
                              CONTROL-AREA IS CTL-AREA.
FKEY的定义：
01  CTL-AREA.
         03  FKEY                      PIC  X(02).

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

论坛徽章:: 0

7楼 [报告]

发表于 2008-09-22 15:32 |只看该作者

能不能举个完整的例子啊？

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

论坛徽章:: 0

8楼 [报告]

发表于 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".
这些又放哪里啊？

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

论坛徽章:: 0

9楼 [报告]

发表于 2008-09-22 16:01 |只看该作者

1.在画面文件里面功能键。
2.cobol中文件定义时定义：
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新装的系统，没安装cobol不好使，我也只能说说了，有问题自己调调吧

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

论坛徽章:: 0

10楼 [报告]

发表于 2008-09-22 16:14 |只看该作者

可以了，谢谢了

不过有个问题，就是CTL-AREA和KEY-AREA这两个是怎么拉上关系的？》

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

12 / 2 页下一页

发新帖

Chinaunix › 论坛 › 操作系统 › AS400 › 请教cobol里显示画面的function key怎么定义和使用

北京盛拓优讯信息技术有限公司. 版权所有京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP