RPG程序中AS400系统日期问题请教。

V01619

最近公司里的AS/400开始24小不间断使用了，有用户8/24日登录的系统，一直没有退出，
到了8/25，显示文件中的*DATE显示的竟然仍是8/24，退出程序再进入仍然如此。非要完全AS/400，重新登录后
日期才会变成8/25，有人遇到过这样的怪事吗？

[ 本帖最后由 V01619 于 2008-8-25 11:24 编辑 ]

V01619

用CHGJOB查看日期异常的用户，发现DATE值是080824。
也就是说RPG程序所读的系统日期是JOBD里的日期，而不是真正的系统日期。
如何做才能让RPG程序读到真正的系统日期呢？

qingzhou

你把系统值QINACTITV：*NONE改为指定时间，到了限制时间会用户自动signoff。

qingzhou

原帖由 V01619 于 2008-8-25 12:48 发表
用CHGJOB查看日期异常的用户，发现DATE值是080824。
也就是说RPG程序所读的系统日期是JOBD里的日期，而不是真正的系统日期。
如何做才能让RPG程序读到真正的系统日期呢？

或者试试程序直接RTVSYSVAL QDATA

fairyboy

那个用户调用的程序是不是SBMJOB出去的?

V01619

感谢老大提供思路，编写了一个CL程序，解决了这个问题。
取得JOB DATE和SYS DATE进行比较，
若两日期不一致，则用SYS DATE替换JOB DATE。

PGM                                                      
DCL        VAR(&JOB1)  TYPE(*CHAR) LEN(10)               
DCL        VAR(&USER1)  TYPE(*CHAR) LEN(10)               
DCL        VAR(&NBR1)  TYPE(*CHAR) LEN(6)                 
DCL        VAR(&DATE1)  TYPE(*CHAR) LEN(6)               
DCL        VAR(&DATE2)  TYPE(*CHAR) LEN(6)               
RTVJOBA    JOB(&JOB1) USER(&USER1) NBR(&NBR1) DATE(&DATE1)
RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE2)                  
IF         COND(&DATE1 *NE &DATE2) THEN(DO)               
CHGJOB     JOB(&NBR1/&USER1/&JOB1) DATE(&DATE2)
ENDDO   
ENDPGM

uglyneo

学习了，谢谢。

ALCHU

原帖由 V01619 于 2008-8-26 09:32 发表
感谢老大提供思路，编写了一个CL程序，解决了这个问题。
取得JOB DATE和SYS DATE进行比较，
若两日期不一致，则用SYS DATE替换JOB DATE。

PGM                                                      
D ...

这不是脱裤子放屁吗？这和直接用系统日期有什么不一样？

roden

呵呵,只能说取错值了

V01619

RPG程序里一般都是用Z-ADD *DATE 来获取当前日期的，一般情况下也没有问题。
可自从AS/400用到了生产线后，一个用户登录到了系统后是从来不退系统的，有可能超过24小时，所以这个用户的JOB DATE会一直保持着登录时的日期。这时如果用Z-ADD *DATE取日期的话，会发现取到的是登录时的日期，而不是真正的系统日期。所以需要用CL程序来处理一下。
楼上两位不相信的话，可用用WRKACTJOB找到自己当前的JOB，修改一下JOB DATE，然后再CALL个RPG程序试试看，显示的日期是当前系统日期还是你改过的JOB DATE。

[ 本帖最后由 V01619 于 2008-8-29 16:53 编辑 ]