900-IS-DATE-INVALID

900-IS-DATE-INVALID validates the input date. The output switch is always set.

Library CALRTNS

Required Input

Field Type and length Definition
WSDR-FR-DATE 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
WSDR-DATE-ERROR N 8

False = No error.

True = Error.
WSDR-ERROR-NBR N 9

Error number.

See Error Number.
WSDR-ERROR-VAR A 20 Input parameter is in error.

Programming Example

     MOVE BN70WS-DATE            TO WSDR-FR-DATE.
     PERFORM 900-IS-DATE-INVALID.
     IF  (WSDR-DATE-ERROR-EXISTS)
          PERFORM 5000-SET-TO-EOM.