The Retrieve New Year  command retrieves the first day of  the year for
any year  in the range of 1600  to 4000.  This allows  other tools such
as  RTVDAT  to operate  on the  same range  of dates.   Leap  years are
handled correctly.

A typical command would be:

             DCL           &DAYNBR *CHAR LEN(1)
              .
             RTVNEWYEAR    YEAR(nnnn) &DAYNBR

The &DAYNBR value will be 1-7 with Sunday = 1.

RTVNEWYEAR escape messages you can monitor for
----------------------------------------------

None.  Escape messages from based on functions will be re-sent.

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

   YEAR          The year to return  the first day for.   It must be  a
                 value in the range of 1600 - 4000.

   DAYOFWEEK     An  optional  return  variable  that  will  contain  a
                 value  of SUN, MON, ...   SAT.   If specified, it must
                 be declared as *CHAR LEN(3).

   DAYNBR        An  optional  return  variable  that  will  contain  a
                 value of 1  - 7 with Sun =  1, MON = 2, ...   SAT = 7.
                 If specified, it must be declared as *CHAR LEN(1).

   LEAPYEAR      An  optional  return  variable  that  will  contain  a
                 value of *YES or  *NO for whether the  year is a  leap
                 year.   If  specified, it  must be  declared as  *CHAR
                 LEN(4).

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

Years 1600 - 4000 are supported.

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

The following TAA Tools must be on your system:

     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   RTVNEWYEAR    *CMD                   TAADAUD       QATTCMD
   TAADAUDC      *PGM       CLP         TAADAUDC      QATTCL