U@DATEONCAL

U@DATEONCAL checks the input date against a named calendar to see if the date is marked. The routine returns true (T) if the date is marked; otherwise, it returns false (F). See Century Parameter Processing

Note: All input dates are YYYYMMDD.
Module CALRTNS

Required Input

Field Type and length Definition
E@DRCALENDAR A 15 Name of calendar to check.
E@DRFRDATE N 8

YYYYMMDD

Date to check as marked on the calendar.

Output

Field Type and length Definition
E@DRDATEISONC A 1 Set to Y if input date is marked, otherwise set to N.
E@DRERRORNBR N 9

Error number.

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

Error Number

Error Explanation
0 No error occurred.
23 Invalid date.
24 Invalid from date.
25 Invalid to date.
26 Invalid calendar.
33 Year Increment Out of Range.
34 Month Increment Out of Range.
35 Day Increment Out of Range.

Programming Example

     EVAL      E@DRCALENDAR   = VWHICL@CLNDR
      EVAL      E@DRFRDATE     = F1@WRSTRT           
      CALLP     U@DATEONCAL                  Date On Calendar
      IF        E@DRDATEISONC <> 'Y'                         
      EVAL      E@ERRORNBR     = 250                        
      EVAL      E@FIELDNBR     = F1FN@WRSTRT