DATEQ1/DATEQ2/DATEQ3

DCL:MISC１:DATELIB : Handling of Dates *#:Explanation of Subroutines

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.

`IDATE`	`(I)`	Type 1 date.
`IY`	`(I)`	Year.
`IM`	`(I)`	Month.
`ID`	`(I)`	Day.
`ITD`	`(I)`	Serially-counted day.