SET DAY
The SET DAY statement extracts the day of the week from a date/time field.
SET DAY
(1)
(2) (3) (4)(5) (6)
(7) (8)
|
(5) Type (S=short name, L=long name) | |
|
(4) Destination occ (constant/index) |
(8) Source occurrence (constant/index) |
If the type (item 5) is S (short), the result is returned in the destination field as three characters (for example, Wed). If the type is L (long), the result is returned in the destination field as up to nine characters (for example, Wednesday). If the source field is blank, the destination field is set to blank.
The destination must be an alpha field type and the source must be a date/time field type containing at least year, month, and day.
If the source field is one of the Gregorian date/time field types, a non-recoverable error occurs if it does not contain the year, month, and day parts. If the source field is one of the Julian date/time field types, a non-recoverable error occurs if it does not contain the year and day parts.
The following example begins with an adjustment date, and retrieves and displays all of the days of the week, beginning with that day.
*
* Set
and display days of the week
*
SET TAR
WORK DATE = TAR
ADJUST2 ADJ DATE
BEG LOOP X = 001
TO 007 STEP 001
SET DAY TAR
WORK DAY DESCRIPT X S TAR
WORK DATE
DATE ADD TAR
WORK DATE 5 1
DISPLAY TAR
WORK DAY DESCRIPT X (AT
APPEARANCE # )
END LOOP X