*教你一招（如何在RPG里取系统值----例如取光标位置）

thursday

FAAAAAD     CF  E                          WORKSTN                           
F                                                   KINFDS #INFDS        
I#INFDS      DS                                                     
I                                 B 370 3710W@CUR               
C           W@CUR     DIV  256        W@LIN   30         -------光标横坐标  
C                             MVR               W@POS   30        -------光标纵坐标

这是取系统光标的方法，其他还有好多系统值也可以取，希望斑竹或高手们跟贴，补充，共同提高！

thursday

怎么没人补充阿？我也想学点新的取 系统值的方法阿！？

thursday

[quote]原帖由 "xuguopeng"][/quote 发表：


版主说的是RPGLE的吧？怎么只写代码，不加注释阿？

thursday

原帖由 "blogliou" 发表：
你这是如何取显示文件光标位置的办法，与取“系统值”不是一回事，
一般说的“系统值”可以用wrksysval查看，编程序可以写一个cl程序，用rtvsysval命令可提取。

兄弟，那贴点代码供大家学习一下阿？

thursday

1. 
   
2.      PGM
   
3.              DCL        VAR(&DATE1) TYPE(*CHAR) LEN(6)
   
4.              DCL        VAR(&TIME1) TYPE(*CHAR) LEN(6)
   
5. 
   
6.              RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&TIME1)
   
7.              RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE1)
   
8. 
   
9.        SNDPGMMSG  MSG(&DATE1 *CAT &TIME1)
   
10. 
    
11.       \END:    ENDPGM
    
12. 
    
13. 
    

复制代码

这个可以执行的!^-^

thursday

众人拾柴火焰高,期待着你的参与!

分享你的心得!