U@GETDATELIT

U@GETDATELIT converts the date in E@DRFRDATE to a display format in which the month name is substituted for the number of the month. 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@DRLITMONTH A 51

Literal date.

When invalid, the field is cleared and left blank.
E@DRLITDATE A 20

Literal month.

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        DGLSFSCLYR = F1@FSCLYR + 1  
               OR  DGLSFSCLYR = F1@FSCLYR - 1    
               OR  DGLSFSCLYR = F1@FSCLYR               
     EVAL      E@DRFRDATE     = DGLSPRENDT(S0)       
     ELSE                                                
     EVAL      E@DRFRDATE     = DGLSPRENDT(S0)          
     EVAL      E@DRFRCALYEAR  = F1@FSCLYR              
     ENDIF                                               
     CALLP     U@GETDATELIT                     Get Date Lit