*教你一招（如何在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        -------光标纵坐标

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

USING_AS400

好！试试看！

bonbonben

还有此等妙招，试试看。

thursday

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

xuguopeng

1. 0004.00 D                SDS              
   
2. 0005.00 D PGMID                   1     10     程序ID
   
3. 0006.00 D WSID                  244    253    工作站ID
   
4. 0007.00 D USRID                 254    263   用户ID

复制代码

thursday

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


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

blogliou

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

thursday

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

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

blogliou

原帖由 "thursday" 发表：


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

比如提取系统时间,下面例子通过提取QTIME系统直来计算程序运行时间：

1. PGM
   
2. 
   
3. DCL        VAR(&STRTIM) TYPE(*DEC) LEN(7 0)  
   
4. DCL        VAR(&STRTIMC) TYPE(*CHAR) LEN(7)  
   
5. DCL        VAR(&ENDTIM) TYPE(*DEC) LEN(7 0)  
   
6. DCL        VAR(&ENDTIMC) TYPE(*CHAR) LEN(7)  
   
7. DCL        VAR(&TTIME) TYPE(*DEC) LEN(7 0)
   
8. 
   
9. 
   
10. RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&STRTIMC)
    
11. CHGVAR     VAR(&STRTIM) VALUE(&STRTIMC)   
    
12. 
    
13. .....(处理)
    
14. 
    
15. RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&ENDTIMC)   
    
16. CHGVAR     VAR(&ENDTIM) VALUE(&ENDTIMC)     
    
17. 
    
18. CHGVAR     VAR(&TTIME) VALUE(&ENDTIM- &STRTIM)  
    
19. 
    
20. 。。。。
    
21. 
    
22. ENDPGM

复制代码

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. 
    

复制代码

这个可以执行的!^-^