IDATE4

Portability Subroutine: Returns the month, day, and year of the current system.

Module

USE IFPORT

CALL IDATE4 (i,j,k)

-or-

CALL IDATE4 (iarray)

i	(Output) INTEGER(4). The current system month.
j	(Output) INTEGER(4). The current system day.
k	(Output) INTEGER(4). The current system year as an offset from 1900.
iarray	(Output) INTEGER(4). A three-element array that holds day as element 1, month as element 2, and year as element 3. The month is between 1 and 12. The year is returned as an offset from 1900, if the year is less than 2000. For years greater than or equal to 2000, this element simply returns the integer year, such as 2003.