RTVNEWYEAR RETRIEVE NEW YEAR TAADAUD |
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
|
Added to TAA Productivity tools July 10, 2000