跨日之间RPG如何取得新的日期

Question

各位大侠，本公司AS400 全天候运行，特别是当天23：00到次日1：00 RPG程序一直处于运行状态，我们发现rpg程序中*time会与实际时间一致，但是日期*date就不会与实际日期发生变化，它还会保持着登录日期，这就会给需要日期控制的程序带来严重错误，例如AS400登录日期 2009/10/30 23:00:00,如果一直保持运行状态没有退出登录画面，到了次日2009/10/31 1:00:00,此时用*date取得的系统日期仍然为2009/10/30 1:00:00。
请各位大侠指教，如何在第二天在不退出使用状态的情况下用*date而取得日期为2009/10/31.

Answer 1

1。使用2楼说的time，然后拆出日期就可以；
2。使用Qdate也可以，rpg不好实现

[ 本帖最后由 huangxkst 于 2009-11-10 16:16 编辑 ]

Answer 2

谢谢3楼jianzk的说明。估计在RPG中很难使用。
谢谢2楼lordlost提供的举例，我们以前用TIME只取得时间，没想到后面还有这么重要的尾巴。
感谢2楼lordlost给我们解决的困扰。

Answer 3

*date，是當前作業登陸的日期。

系統當前日期應該拿系統值（SYSVAL) QDATE。

Answer 4

改用Time就可以解決了！

               
C                     TIME           TMDT   140
C                     MOVELTMDT      WTIME   60
C                     MOVE TMDT      DTTMP   80
C           DTTMP     SUB  19110000  WDATE   70