*day取系统日的奇怪问题请教

smile-wz

我用*day来取系统日期经常会发生错误，而且无规律可循。代码如下：
0192.02 D DSDATE          DS                  
0192.03 D  DSYEAR                 1      4  0
0192.04 D  DSMNTH                 5      6  0
0192.05 D  DSDAY                  7      8  0
0240.31 C                   Z-ADD     *YEAR         DSYEAR
0240.32 C                   Z-ADD     *MONTH        DSMNTH
0240.33 C                   Z-ADD     *DAY          DSDAY  
0240.34 C                   MOVEL     DSDATE        NLOGDAT
但是写到文件里的NLOGDAT值不稳定。如今天是20060823，但有时候NLOGDAT的值却是20060822。
敬请各位指教。

pantierui

H式样书中写如下代码
RPG:H            Y/      
RPGLE:HDATFMT(*YMD) DATEDIT(*YMD) TIMFMT(*HMS)   
然后用Z-ADD *DATE  DSDATE试试

kempzhang

这个问题，好像是因为你的session没有结束，*day取得的值是登录的时候得值。