U@GETWEEKDLIT

U@GETWEEKDLIT converts the date in E@DRFRDATE to a display format of the name of the day of the week. Detects the end user's locale and translates the weekday literal for that locale. For an invalid date, the field is cleared and left blank. See Century Parameter Processing.

Module CALRTNS

Required Input

Field Type and length Definition
E@DRFRDATE N 8 Date to convert.

Output

Field Type and length Definition
E@DRLITWEEKDY A 20

Name of the day of the week. This variable returns the full weekday literal, never the abbreviation, in the language determined by the end user's locale.

When invalid, the field is cleared and left blank.
E@DRERRORNBR N 9

Error number.

See Error Number

E@DRERRORVAR A 20 Input parameter is in error.

Programming Example

     IF        DTIMDYOFAT = 'Y'    
      EVAL      VDMLOD#HSATTR  = 'Y'                
      EVAL      VDMLOD#ATTRIB(1) = DTIMWKDMBR      
      CALLP     U@GETWEEKDLIT                 Get Weekday Lit
      EVAL      VDMLOD#ATTRVL(1) = E@DRLITWEEKDY          
      ENDIF