520-DATE-LIT

Note: This routine is provided for backward compatibility. Use instead.

The 520-DATE-LIT routine converts the date in DATE-1 to a display format in which the month name is substituted for the number of the month. The input month is validated before conversion.

Library DATERTNS

Required Input

Field Type and length Definition
DATE-1 N 8 Date to be converted.

Output

Field Type and length Definition
LITERAL-DATE A 20 Converted date. Spaces = month in error.

Example

*       Set date for heading print.
        MOVE report-date                     TO DATE-1.
        PERFORM 520-DATE-LIT.