The Retrieve Date 3 command allows you to request a date such as the
first Monday in October of a specific year and returns the actual
date in CYMD format. A specific week or the last week of the month
may be specified. The command is helpful when scheduling events.
A typical command would be:
DCL &RTNDATE *CHAR LEN(7)
.
RTVDAT3 DAY(*MON) MONTH(*OCT) RELDAYMTH(1) +
RTNDATE(&RTNDATE)
This would return the date in CYMD format for the current year.
Numbers may be used in place of the * values such as:
RTVDAT3 DAY(1) MONTH(10) ...
To determine the date of the last Friday of July in the year 2009,
you would specify:
RTVDAT3 DAY(*FRI) MONTH(*JUL) RELDAYMTH(*LAST) +
YEAR('2009') RTNDATE(&RTNDATE)
Years 1940 - 2039 are supported.
If RELDAYMTH(5) is specified, there may not be a 5th day of the week
for the specified day. If so, TAA9891 is sent as an escape message.
Command parameters *CMD
------------------
DAY The day of the week requested. A number 1 - 7
(Sunday = 1) may be specified or the special values
*SUN ... *SAT.
MONTH The month requested. A number 01 - 12 (January =
01) may be specified or the special values *JAN ...
*DEC.
RELDAYMTH The relative day of the month. A value 1 - 5 or
*LAST may be specified. For example, to determine
the second Monday of the month, specify 2. To
determine the last Monday of the month, specify
*LAST.
If RELDAYMTH(5) is specified, there may not be a 5th
day of the week for the specified day. If so,
TAA9891 is sent as an escape message.
YEAR The year requested. The default is *CURRENT meaning
the current year. Years 1940 - 2039 may be
specified.
RTNDATE The return date in the format CYMD. The return
variable must be specified as *CHAR LEN(7).
Restrictions
------------
Only the years 1940 - 2039 are supported.
Prerequisites
-------------
The following TAA Tools must be on your system:
RTVDAT Retrieve date
SNDESCMSG Send escape message
Implementation
--------------
None, the tool is ready to use.
Objects used by the tool
------------------------
Object Type Attribute Src member Src file
------ ---- --------- ---------- ----------
RTVDAT3 *CMD TAADATS QATTCMD
TAADATSC *PGM CLP TAADATSC QATTCL
|
