DATEC1/DATEC2/DATEC3

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

7.4.5 DATEC1/DATEC2/DATEC3

1.

Function

Expresses a date by a character string in the format specified.
DATEC1 : Expresses Type 1 date by a character sting.
DATEC2 : Expresses Type 2 date by a character sting.
DATEC3 : Expresses Type 3 date by a character sting.

2.

Call

CALL DATEC1(CFORM,IDATE)
CALL DATEC2(CFORM,IY,ITD)
CALL DATEC3(CFORM,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.

CFORM (C *( *)) The format for the date. It is both the input and output parameter The key characters that can be used in CFORM are: year 'Y', month 'M', day 'D', month represented in characters 'C', and day of week 'W'. For example, for IDATE=19920401 (which is a Wednesday), CFORM='APR, 1,92 (WED)' will be returned by calling DATEC1 with the specification CFORM='CCC,DD,YY (WWW)'.

4.

Notes

(a): To be precise, the section between the first and last key character to appear is replaced by a character string according to the specified date format. Therefore, writing 'CCCCC/YYYY' is essentially the same as writing 'CAAAC/YBBY'.
(b): The name of month represented by characters will be output right justified.

`IDATE`	`(I)`	Type 1 date.
`IY`	`(I)`	Year.
`IM`	`(I)`	Month.
`ID`	`(I)`	Day.
`ITD`	`(I)`	Serially-counted day.
`CFORM`	`(C ( ))`	The format for the date. It is both the input and output parameter The key characters that can be used in `CFORM` are: year `'Y'`, month `'M'`, day `'D'`, month represented in characters `'C'`, and day of week `'W'`. For example, for `IDATE=19920401` (which is a Wednesday), `CFORM='APR, 1,92 (WED)'` will be returned by calling `DATEC1` with the specification `CFORM='CCC,DD,YY (WWW)'`.