Re: getting system date and system time

d systs s z
d sysdate s 6p 0
d systime s 6p 0
c eval systs = %timestamp()
c eval sysdate = %dec( %date( systs ) : *ymd )
c eval systime = %dec( %time( systs ) : *hms )

On Dec 13, 2007 5:06 PM, <JDHorn@xxxxxxxxxxxxxx> wrote:

Is there a better way to retrieve the system date and time than this, or
is this as good as any?
System date, not the job date.
D SYSYMD S 6 0
D SYSTIME S 6 0
/FREE
SYSYMD = %DEC(%SUBST(%CHAR(%TIMESTAMP:*ISO0):3:6):6:0);
SYSTIME = %DEC(%SUBST(%CHAR(%TIMESTAMP:*ISO0):9:6):6:0);
/END-FREE
C SETON LR



Jim Horn
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.