U@GETLCLDTLIT

U@GETLCLDTLIT returns the translated month name for the month number in the date in E@DRFRDATE. The translated name is based on the locale in E@WSLOCALE. 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.

Module CALRTNS

Required Input

Field Type and length Definition
E@DRFRDATE N 8 Date to convert in yyyymmdd format
E@WSLOCALE A 10 The locale name used to translate the date.
E@DRDATEABBRFL 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
E@DRLITDATE A 51 Literal date (such as 5 September 2003 or September 5, 2003) An error returns spaces.
E@DRLITMONTH A 20 Literal month An error returns spaces.
E@DRERRORNBR N 9

Error number.

24 = Bad Date in E@DRFRDATE

E@DRERRORVAR A 20 Input parameter is in error.

Programming Example

*       Convert date for report heading.
    EVAL      E@DRFRDATE     = report-date
    CALLP     U@GETLCLDTLIT