U@GETNBDYOCAL

U@GETNBDYOCAL counts the number of marked days on a specific calendar between a "from" and a "to" date. The "from" date must precede the "to" date; this is not validated. The routine returns false (0) if an error is found. See .

Module CALRTNS

Required Input

Field Type and length Definition
E@DRCALENDAR A 15 Name of calendar to check.
E@DRFRDATE N 8 Date to check from for marked calendar dates (this date is not included).
E@DRTODATE N 8 Date to check to for marked calendar dates (this date is included).

Output

Field Type and length Definition
E@DRNBRDOC N 9 The number of marked days on a specific calendar between the specified dates. Always set.
E@DRERRORNBR N 9

Error number.

See Error Number

E@DRERRORVAR A 20 Input parameter is in error.

Programming Example

    IF        F1@WHSTDT > *ZEROS          
               AND F1@WHENDT >= F1@WHSTDT                    
     EVAL      E@DRFRDATE     = F1@WHSTDT                   
     EVAL      E@DRTODATE     = F1@WHENDT                   
     CALLP     U@NBDYINDTRNG             Nbr Days In Date Rng
     EVAL      E@DRCALENDAR   = VWHICL@CLNDR                 
     CALLP     U@GETNBDYOCAL             Get Nbr Days On Cal
     IF        E@DRNBRDAYS <> E@DRNBRDOC                 
     EVAL      E@MSGNBR       = 114