U@GETNBDYINCL calculates the
number of marked days in a date range from a list of calendars. It
only counts the marked days that all of the calendars have in common.
The "from" date must precede the "to" date;
the order of "from" and "to" is not checked.
The number and names of the calendars are validated. The routine returns
false (0) if an error is found. See Century Parameter Processing.
Required Input
|
Field
|
Type and length
|
Definition
|
|
E@DRCALLSTGRP
|
A 15
|
Contains E@DRCALLSTGRP that occurs ten times.
|
|
E@DRNBRCALEND
|
N 8
|
Number of calendars.
|
|
E@DRFRDATE
|
N 8
|
Start date for checking marked calendar dates
(this date is not included).
|
|
E@DRTODATE
|
N 8
|
End date for checking marked calendar dates (this date is included).
|
Output
|
Field
|
Type and length
|
Definition
|
|
E@DRNBRDOC
|
N 8
|
Number of marked days in a date range from
the list of calendars.
|
|
E@DRERRORNBR
|
N 9
|
Error number.
See Error Number
|
|
E@DRERRORVAR
|
A 20
|
Input parameter is in error.
|
Programming Example
EVAL E@DRCALLSTGRP = calendar-names
EVAL E@DRNBRCALEND = number-of-names
EVAL E@DRFRDATE = start-date
EVAL E@DRTODATE = stop-date
CALLP U@GETNBDYINCL
|