U@ISVALIDDATE

U@ISVALIDDATE validates the input date. The output switch is always set.

Module CALRTNS

Required Input

Field Type and length Definition
E@DRFRDATE N 8

Calendar date.

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

Output

Field Type and length Definition
E@DRDATEERR N 8

False = No error.

True = Error.
E@DRERRORNBR N 9

Error number.

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

Programming Example

    EVAL      E@DRFRDATE     = PBN70WS@DATE   
     CALLP     U@ISVALIDDATE                  Is Date Invalid
     IF        E@DRDATEERR = 1                    
     CALLP     LSTTEM                         Set To Eom