Chinaunix

标题: *教你一招（如何在RPG里取系统值----例如取光标位置） [打印本页]
作者: thursday    时间: 2004-12-03 16:32
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）
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    时间: 2004-12-03 21:06
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）
好！试试看！
作者: bonbonben    时间: 2004-12-03 21:41
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）
还有此等妙招，试试看。
作者: thursday    时间: 2004-12-06 08:53
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）
怎么没人补充阿？我也想学点新的取 系统值的方法阿！？
作者: xuguopeng    时间: 2004-12-06 09:00
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）
  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    时间: 2004-12-06 09:15
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）
[quote]原帖由 "xuguopeng"][/quote 发表：


版主说的是RPGLE的吧？怎么只写代码，不加注释阿？
作者: blogliou    时间: 2004-12-06 16:18
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）
你这是如何取显示文件光标位置的办法，与取“系统值”不是一回事，
一般说的“系统值”可以用wrksysval查看，编程序可以写一个cl程序，用rtvsysval命令可提取。
作者: thursday    时间: 2004-12-06 16:26
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）
原帖由 "blogliou" 发表：
你这是如何取显示文件光标位置的办法，与取“系统值”不是一回事，
一般说的“系统值”可以用wrksysval查看，编程序可以写一个cl程序，用rtvsysval命令可提取。


兄弟，那贴点代码供大家学习一下阿？
作者: blogliou    时间: 2004-12-06 16:56
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）
原帖由 "thursday" 发表：


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



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

  1. PGM

  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)


  10. RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&STRTIMC)
  11. CHGVAR     VAR(&STRTIM) VALUE(&STRTIMC)   

  13. .....(处理)

  15. RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&ENDTIMC)   
  16. CHGVAR     VAR(&ENDTIM) VALUE(&ENDTIMC)     

  18. CHGVAR     VAR(&TTIME) VALUE(&ENDTIM- &STRTIM)  

  20. 。。。。

  22. ENDPGM
复制代码
作者: thursday    时间: 2004-12-07 09:42
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）

  2.      PGM
  3.              DCL        VAR(&DATE1) TYPE(*CHAR) LEN(6)
  4.              DCL        VAR(&TIME1) TYPE(*CHAR) LEN(6)

  6.              RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&TIME1)
  7.              RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE1)

  9.        SNDPGMMSG  MSG(&DATE1 *CAT &TIME1)

  11.       \END:    ENDPGM


复制代码


这个可以执行的!^-^
作者: thursday    时间: 2004-12-07 09:48
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）
众人拾柴火焰高,期待着你的参与!

分享你的心得!
作者: 居士    时间: 2004-12-07 13:56
标题: *教你一招（如何在RPG里取系统值----例如取光标位置）
好贴，鼓掌～～



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2