TIME

Return the current system time

WSupported on Windows

USupported on Unix

VSupported on OpenVMS

NSupported in Synergy .NET

xcall TIME(time)

Arguments

time

The variable that will be loaded with the current time. (d)

Discussion

The TIME subroutine returns the current time, as maintained by the operating system.

Synergy DBL returns the time in 24-hour notation in the format hhmmss, where hh is the number of hours elapsed since midnight, mm is the number of minutes elapsed since the last hour, and ss is the number of seconds elapsed since the last minute.

If the length of the time variable is less than 6, an “Argument specified with wrong size” error ($ERR_ARGSIZ) is generated.

Examples

If the time is currently 12 seconds past 7:43 in the evening, the following program displays the time as 19:43:12.

.define TTCHN   ,1
record
    time        ,d6
    fmt         ,a8
proc
    open(TTCHN, i, "tt:")
    xcall time(time)
    fmt = time, "XX:XX:XX"
    display(TTCHN, "The time is ", fmt)
    forms(TTCHN, 1)
    stop
end