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)

(1) T/F execution conditions

(5) Type (S=short name, L=long name)

(2) Destination application ID

(6) Source application ID

(3) Destination field name or PDF

(7) Source field name, PDF, or constant

(4) Destination occ (constant/index)

(8) Source occurrence (constant/index)

Using the Statement

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.

Restrictions

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.

Execution Errors

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.

Related Statements

SET, SET DATE, SET MNTH

Example

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