免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2914 | 回复: 5
打印 上一主题 下一主题

AS/400画面程序DSP中 怎么设定光标移动 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2008-04-01 17:14 |只看该作者 |倒序浏览
哪位专家知道必输项的字段有好几个,输入一个字段后按回车时让光标移动到下一个字段的命令与告诉我一下
谢谢!

论坛徽章:
0
2 [报告]
发表于 2008-04-01 18:47 |只看该作者
CA/400, Edit-> Preferences -> Keyboard , 选择 IBM Default 即可.

论坛徽章:
0
3 [报告]
发表于 2008-04-01 18:53 |只看该作者
我记得有个KEYWORD的,等下找找

论坛徽章:
0
4 [报告]
发表于 2008-04-01 19:05 |只看该作者
用这个试试:FLDCSRPRG

论坛徽章:
0
5 [报告]
发表于 2008-04-02 08:01 |只看该作者

谢谢各位专家

我是新手 投石问路的
昨天找到  先在画面上 设定 这个Position cursor  . . . . . . . . . . .     PC        Y      11
再程序(COB)上
   3 SCRK-IND.
      5 IND-K-PC-PLNT PIC 1 INDIC 11
      5 IND-K-PC-SHOP PIC 1 INDIC 12
    20000-02-INITIAL-CHECK.
             * -> PLNT CHECK.                                          
          IF  CA07HPLNT OF SAVE-K NOT = "1" AND "2" AND "G"     
                MOVE  B"1"     TO   IND-K-PC-PLNT                 
                MOVE  016                    TO  DZMSGSERL        
                MOVE  "INIT-CHK"             TO  HMCPROC OF SAVE-M
                GO  TO  20000-01-MAIN-EXIT                        
            END-IF.                                               
       * -> SHOP CHECK.                                          
          IF  HMCSHOP OF SAVE-K NOT = "B" AND "T"               
                MOVE  B"1"     TO   IND-K-PC-SHOP                 
                MOVE  016                    TO  DZMSGSERL        
                MOVE  "INIT-CHK"             TO  HMCPROC OF SAVE-M
                GO  TO  20000-01-MAIN-EXIT                        
            END-IF.
我是这么做的

论坛徽章:
0
6 [报告]
发表于 2008-04-02 09:27 |只看该作者
没有keyword,只要正常输入就行。输完一个字段,键入enter,光标就会跳到下一个输入字段。

[ 本帖最后由 passthru 于 2008-4-2 09:35 编辑 ]
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP