900-GET-DATE-LIT

900-GET-DATE-LIT converts the date in WSDR-FR-DATE to a display format in which the month name is substituted for the number of the month. See Century Parameter Processing.

Library CALRTNS

Required Input

Field Type and length Definition
WSDR-FR-DATE N 8 Date to convert.

Output

Field Type and length Definition
WSDR-LITERAL-MONTH A 51

Literal date.

When invalid, the field is cleared and left blank.
WSDR-LITERAL-DATE A 20

Literal month.

When invalid, the field is cleared and left blank.
WSDR-ERROR-NBR N 9

Error number.

See Error Number.
WSDR-ERROR-VAR A 20 Input parameter is in error.

Programming Example

     IF (GLS-FISCAL-YEAR        = PRM-FISCAL-YEAR + 1)
     OR (GLS-FISCAL-YEAR        = PRM-FISCAL-YEAR - 1)
     OR (GLS-FISCAL-YEAR        = PRM-FISCAL-YEAR)
         MOVE GLS-PER-END-DATE (SUB) TO WSDR-FR-DATE
     ELSE
         MOVE GLS-PER-END-DATE (SUB) TO WSDR-FR-DATE
         MOVE PRM-FISCAL-YEAR        TO WSDR-FR-CAL-YEAR.
     PERFORM 900-GET-DATE-LIT.