905-GET-LOCALE-DATE-LIT

905-GET-LOCALE-DATE-LIT returns the translated month name for the month number in the date in WSDR-FR-DATE . The translated name is based on the locale in WS-LOCALE . 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
WS-LOCALE A 10 The locale name used to translate the date.
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.

Programming Example

*       Convert date for report heading.
        MOVE report-date                   TO WSDR-FR-DATE.
        PERFORM 905-GET-LOCALE-DATE-LIT.