GETTIM

Portability Subroutine: Returns the time.

Module

USE IFPORT

CALL GETTIM (ihr, imin, isec, i100th)

ihr	(Output) INTEGER(4) or INTEGER(2). Hour (0-23).
imin	(Output) INTEGER(4) or INTEGER(2). Minute (0-59).
isec	(Output) INTEGER(4) or INTEGER(2). Second (0-59).
i100th	(Output) INTEGER(4) or INTEGER(2). Hundredths of a second (0-99).

All arguments must be of the same integer kind, that is, all must be INTEGER(2) or all must be INTEGER(4).

If INTEGER(2) arguments are passed, you must specify USE IFPORT.

See the example in GETDAT.