The Retrieve Start of Month Date command retrieves the date for the
first specified day of the month. For example, you can determine the
date of the first Monday of the month. The date is returned in
CYYMMDD format.
A typical command would be:
DCL &SOMDATE *CHAR LEN(7)
.
RTVSOMDAT SOMDATE(&SOMDATE) DAYOFWEEK(*FRI)
Command parameters *CMD
------------------
SOMDATE The start of month date that is returned in the
format CYYMMDD. It must be declared as *CHAR LEN(7)
DAYOFWEEK The day of the week to be used to determine the
start date. It must be entered as *SUN, *MON, *TUE,
*WED, *THU, *FRI, or *SAT.
A special value exists for *FSTWKDAY to return the
first week day of the month. For example, if the
month begins on Wednesday, the return is for
Wednesday. If the week begins on Saturday or
Sunday, the return is for the following Monday.
MONTH The month to retrieve the last date for. The
default is *CURRENT. If a specific month is
entered, it must be a value from 01 to 12. If the
month is Jan - Sept, it must be entered with a
leading 0 such as 02.
YEAR The year of the month to retrieve the date for. The
default is *CURRENT. If a specific year is used, it
must be entered as 4 digits such as 2001.
The value must be between 1928 and 2071.
Restrictions
------------
The command uses CVTDAT internally which restricts the conversion of
dates from Aug 24, 1928 to May 9, 2071.
Because the command returns a variable, it may only be used in a CL
program.
Prerequisites
-------------
The following TAA Tools must be on your system:
RTVDAT Retrieve date
Implementation
--------------
None, the tool is ready to use.
Objects used by the tool
------------------------
Object Type Attribute Src member Src file
------ ---- --------- ---------- ----------
RTVSOMDAT *CMD TAADATP QATTCMD
TAADATPC *PGM CLP TAADATPC QATTCL