U@GETDATEEOM

U@GETDATEEOM takes an input date and returns a valid output date set to the end of the month. If the "from date" is already the last day of the month, the "to date" is set equal to the "from date," unless the "from date" century equals 00.

Module CALRTNS

Input

Field Type and length Definition
E@DRFRDATE N 8 From date (yyyymmdd)

If the input date century equals 00, it changes to 19 or 20. See Century Parameter Processing.

Output

Field Type and length Definition
E@DRTODATE N 8

To date (yyyymmdd)

Valid end-of-the-month date.
E@DRERRORNBR N 9

Error number.

See Error Number
E@DRERRORVAR A 20 Input parameter is in error.

Programming Example

    EVAL      PIA80WS@YYDD   = DIYRFYFRDT  
     IF        PIA80WS@MMMMDD = 101                          
               AND F1@NBPR = 12                
     EVAL      PIA80WS@DYPRPR = *ZEROS         
     EVAL      E@DRFRDATE     = PIA80WS@YYDD          
     CALLP     U@GETDATEEOM                     Get Date Eom
     EVAL      PIA80WS@YYDD   = E@DRTODATE