The Retrieve  Holiday  Date command  retrieves the  actual  date of  US
holidays.   This includes both  floating holidays such  as Memorial Day
and  fixed days such as  Christmas.  A specific  year may be requested.
The date is returned in YYYYMMDD format.

A typical command to retrieve  the actual date of Memorial Day  for the
current year would be:

              DCL         &RTNDAT *CHAR LEN(8)
               .
              RTVHOLIDAY  HOLIDAY(*MEMORIAL) RTNDAT(&RTNDAT) +
                            YEAR(*CURR)

An optional parameter  returns the day of the week  such as *SUN, *MON,
etc.

Command parameters                                    *CMD
------------------

   HOLIDAY       The  special value such  as *MEMORIAL  to describe the
                 holiday to be retrieved.   For a complete list of  the
                 holidays, use the command prompter.

                 *ADMPROF   is   the   preferred    name   instead   of
                 *SECRETARY.  Both produce the same date.

   RTNDAT        The  return  date  which is  the  actual  date in  the
                 format  YYYYMMDD.    The   return  variable  must   be
                 declared as *CHAR LEN(8).

   RTNDAY        The return day of  the week.  One of  the values *SUN,
                 *MON,  *TUE,  *WED,   *THU,  *FRI,  or  *SAT  will  be
                 returned.   This is an  optional variable that if used
                 must be declared as *CHAR LEN(4).

   YEAR          The year  of the holiday.   The  default is *CURR  for
                 the current  year.  A  year in the range  of 1940-2039
                 may be specified.

Date rules for floating holidays
--------------------------------

  **   Armed Forces.  Third Saturday in May.

  **   Ash Wednesday.  Forty six days before Easter.

  **   Columbus.  Second Monday in October.

  **   Easter.   An almanac was  used.  The dates  are dependent on the
       Equinox.

  **   Fathers day.  Third Sunday in June.

  **   Good Friday.  Three days before Easter.

  **   Labor day.  First Monday in September.

  **   Mardi Gras.   Forty  seven days  before Easter  (the day  before
       Ash Wednesday).

  **   Martin Luther King day.  Third Monday in January.

  **   Memorial day.  Last Monday in May.

  **   Mothers day.  Second Sunday in May.

  **   Presidents day.  Third Monday in February.

  **   Hanukkah.  An almanac was used.

  **   Rosh Hashanah.  An almanac was used.

  **   Passover.  An almanac was used.

  **   Thanksgiving.  Fourth Thursday in November.

  **   Yom Kippur.  An almanac was used.

Restrictions
------------

Only the years 1940-2039 are provided for most holiday.

Easter and  the related  holidays are provided  for the  Western Church
calendar.

Prerequisites
-------------

The following TAA Tools must be on your system:

     ADDDAT          Add date
     RTVDAT3         Retrieve relative date

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type    Attribute      Src member    Src file
   ------        ----    ---------      ----------    ----------

   RTVHOLIDAY    *CMD                   TAADATT       QATTCMD
   TAADATTC      *PGM       CLP         TAADATTC      QATTCL