【个人整理系列之一】关于光标取值

fairyboy

在程序内对于光标定位的取值方式以下所有的举例都是RPGLE类型)

1:INFDS中定义

FXXXXFM  CF   E             WORKSTN INFDS(INFDS)

D INFDS           DS                  
D*           DISPLAY DATA STRUCTURE   
D  QFSTA            *STATUS           
D  QFCURP               370    371B 0

C     QFCURP        IFNE      0               
C     QFCURP        DIV       256           ROW  ----行
C                          MVR                       COL  -----列
C                          ENDIF

在DSPF中,
A            ROW          3S 0H
A            COL           3S 0H

fairyboy

2:使用RTNCSRLOC

在DSPF中定义:

A                                      RTNCSRLOC(&CSRRCD &CSRFLD )

A            CSRRCD        10A  H---记录名字段
A            CSRFLD        10A  H---字段名

取出光标所在的显示记录名和所在的字段

fairyboy

3:RTNCSRLOC(*MOUSE &A &B)

取(鼠标)光标所在具体位置
A            A          3S 0H
A            B          3S 0H

fairyboy

4:RTNCSRLOC(*WINDOW &A &B)

取活动窗口中光标位置

fairyboy

总结:在平时工作中，有的时候需要

在用户交互画面中:当用户在不能的输入字段上,按某个功能键实现查询功能.

如果我们用固定的方式:比如说,F3=用户信息查询,F4:厂家基本信息查询,F5:人员使用查询,也可以满足需求.但是当有很多个时,就不提倡这种做法了.


这时,我们就需要用光标定位来实现上面的功能

一般有2种方式:

1:利用光标的行坐标和列坐标的值等于某个固定值实现
例子:
C     ROW        IFEQ      6             ---当鼠标位置的行坐标等于第6行         
C     COL        ANDGE     28           ---列坐标在28列到32列之间         
C     COL        ANDLE     32                     
C                   CALL      'XXXXX'      XXXXX   
C                   ENDIF                           


2:第2种就是利用光标返回出所在字段名

比如:在DSPF中定义的一个输入字段  USEFLD

那么如果在DSPF定义了,RTNCSRLOC(&CSRRCD &CSRFLD )

那么CSRFLD     IFEQ  'USEFLD'             当光标所在的字段名等于
                       CALL  'XXX'            XXX
                       ENDIF


PS:虽然说不一定是这种方式好,我只是想对平时工作中,对于一个事物的多个处理方法.大家参考一下.有啥写错的地方,还望指出..

下一个系列主要将如何 掌握SUBFILE的多种处理方式...

just a kid

路过，帮顶

wnai

嘻嘻，是个好贴，一般用的比较多的是1，2种， 3，4是在dspf的DDS中定义吗？

nhxingliang

不错哦！ 继续！

arishy

路过，不错，顶！

arishy

路过，不错，顶！