Section 11,39: IDATE

 CALL IDATE (month,day,year)

 A subroutine that returns three values representing the current
 date.  The arguments must be defined as integers or integer array
 elements.  The month is represented as the number of the month (1 -
 12).  The day is represented as the day of the month.  The year is
 represented as the last two digits of the year.