× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.






As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.