7.4.4 DATEQ1/DATEQ2/DATEQ3

1.
Function
Determines today's date in the type specified.
DATEQ1 : Determines the Type 1 date for today.
DATEQ2 : Determines the Type 2 date for today.
DATEQ3 : Determines the Type 3 date for today.
2.
Call
DATEQ1(IDATE)
DATEQ2(IY,ITD)
DATEQ3(IY,IM,ID)
3.
Explanation of Parameters
IDATE (I) Type 1 date.
IY (I) Year.
IM (I) Month.
ID (I) Day.
ITD (I) Serially-counted day.
4.
Notes
(a)
This subroutine is system-dependent, and so may not be properly transported in some cases.