905-GET-DATE-LIT

905-GET-DATE-LIT converts the date in WSDR-FR-DATE to the date format of the user's locale. In this display format, the month name is substituted for the number of the month. This routine can be useful to format dates in messages since the formatting of dates in messages is not done as part of the formatting of other screen elements.

Library CALRTNS

Required Input

Field Type and length Definition
WSDR-FR-DATE N 8 Date to convert in yyyymmdd format
WSDR-DATE-ABBREV-FLAG A 1

Set to Y to return an abbreviation of the date literal. For example, Sep rather than September.

The default value is N to return full literal.

Output

Field Type and length Definition
WSDR-LITERAL-DATE A 51 Literal date (such as 5 September 2003 or September 5, 2003). An error returns spaces.
WSDR-LITERAL-MONTH A 20 Literal month An error returns spaces.
WSDR-ERROR-NBR N 9

Error number.

24 = Bad Date in WSDR-FR-DATE

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