AW: setting microseconds to zeros with TIME opcode

Hi Martin,

the following example shows how to get the current timestamp without
microseconds

D MyTimeStamp     S               Z
 *-------------------------------------
 /Free
    MyTimeStamp = %Date() + %Time();
    *InLR = *On;
 /End-Free

Birgitta

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Booth Martin
Gesendet: Dienstag, 14. Juni 2005 18:13
An: RPG programming on the AS400 / iSeries
Betreff: setting microseconds to zeros with TIME opcode


setting microseconds to zeros with TIME opcode.

Is there a way to set the timestamp to date, hour, minute, & second, leaving
the microseconds as zeros?

---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
--
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.