RE: Mcsec in Timestamp, is it possible?

["Nathan M. Andelin" <nathanma@xxxxxxxxx>]

In the following example of the gettimeofday function, I think the tv_usecs
subfield contains the fraction of the current second.

D getTime         pr                  ExtProc('gettimeofday')
D                                 *   Value
D                                 *   Value

D timeValDs       DS
D  tv_secs                      10I 0
D  tv_usecs                     10I 0

D timeValDs@      S               *   Inz(%Addr(timeValDs))

D timeZoneDs      DS
D  tz_minutesW                  10I 0
D  tz_dstflag                   10I 0

D timeZoneDs@     S               *   Inz(%Addr(timeZoneDs))

C                   CallP     getTime(timeValDs@:timeZoneDs@)


Nathan M. Andelin


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---