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:47 |
| 好！试试看！ |
| bonbonben 回复于：2004-12-03 21:41:40 |
| 还有此等妙招，试试看。 |
| thursday 回复于：2004-12-06 08:53:53 |
| 怎么没人补充阿？我也想学点新的取 系统值的方法阿！？ |
| xuguopeng 回复于：2004-12-06 09:00:06 |
| [code:1:9ba54be09d]0004.00 D SDS
0005.00 D PGMID 1 10 程序ID 0006.00 D WSID 244 253 工作站ID 0007.00 D USRID 254 263 用户ID[/code:1:9ba54be09d] :m01: |
| thursday 回复于：2004-12-06 09:15:56 |
| [quote:9ca11f85cd="xuguopeng"][/quote:9ca11f85cd]
版主说的是RPGLE的吧？怎么只写代码，不加注释阿？ |
| blogliou 回复于：2004-12-06 16:18:32 |
| 你这是如何取显示文件光标位置的办法，与取“系统值”不是一回事，
一般说的“系统值”可以用wrksysval查看，编程序可以写一个cl程序，用rtvsysval命令可提取。 |
| thursday 回复于：2004-12-06 16:26:23 |
| [quote:33ebb23b25="blogliou"]你这是如何取显示文件光标位置的办法，与取“系统值”不是一回事，
一般说的“系统值”可以用wrksysval查看，编程序可以写一个cl程序，用rtvsysval命令可提取。[/quote:33ebb23b25] 兄弟，那贴点代码供大家学习一下阿？ |
| blogliou 回复于：2004-12-06 16:56:16 |
| [quote:c37ed0a432="thursday"]
兄弟，那贴点代码供大家学习一下阿？[/quote:c37ed0a432] 比如提取系统时间,下面例子通过提取QTIME系统直来计算程序运行时间： [code:1:c37ed0a432]PGM DCL VAR(&STRTIM) TYPE(*DEC) LEN(7 0) DCL VAR(&STRTIMC) TYPE(*CHAR) LEN(7) DCL VAR(&ENDTIM) TYPE(*DEC) LEN(7 0) DCL VAR(&ENDTIMC) TYPE(*CHAR) LEN(7) DCL VAR(&TTIME) TYPE(*DEC) LEN(7 0) RTVSYSVAL SYSVAL(QTIME) RTNVAR(&STRTIMC) CHGVAR VAR(&STRTIM) VALUE(&STRTIMC) .....(处理) RTVSYSVAL SYSVAL(QTIME) RTNVAR(&ENDTIMC) CHGVAR VAR(&ENDTIM) VALUE(&ENDTIMC) CHGVAR VAR(&TTIME) VALUE(&ENDTIM- &STRTIM) 。。。。 ENDPGM[/code:1:c37ed0a432] |
| thursday 回复于：2004-12-07 09:42:06 |
| [code:1:6fe74e4140]
PGM DCL VAR(&DATE1) TYPE(*CHAR) LEN(6) DCL VAR(&TIME1) TYPE(*CHAR) LEN(6) RTVSYSVAL SYSVAL(QTIME) RTNVAR(&TIME1) RTVSYSVAL SYSVAL(QDATE) RTNVAR(&DATE1) SNDPGMMSG MSG(&DATE1 *CAT &TIME1) \END: ENDPGM [/code:1:6fe74e4140] 这个可以执行的!^-^ |
| thursday 回复于：2004-12-07 09:48:09 |
| 众人拾柴火焰高,期待着你的参与!
分享你的心得! |
| 居士 回复于：2004-12-07 13:56:00 |
| 好贴，鼓掌～～ |
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/