U@GETDATELIT2

U@GETDATELIT2 converts the date in E@DRFRDATE 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.

Module CALRTNS

Required Input

Field Type and length Definition
E@DRFRDATE N 8 Date to convert in yyyymmdd format
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.