Day of Week Function

[Stewart, Mark]

Something like this might work for you Robert.

DEFINE D_DAY_NUM = MOD(DAYS(SYSDATE),7)
DEFINE D_DAY_OF_WEEK CHAR*9
&
   = "Sunday"           IF D_DAY_NUM = 0                                &
ELSE "Monday"           IF D_DAY_NUM = 1                                &
ELSE "Tuesday"          IF D_DAY_NUM = 2                                &
ELSE "Wednesday"        IF D_DAY_NUM = 3                                &
ELSE "Thurday"          IF D_DAY_NUM = 4                                &
ELSE "Friday"           IF D_DAY_NUM = 5                                &
ELSE "Saturday"         IF D_DAY_NUM = 6




Mark Stewart
Consultant
Columbus, Ohio
OpenVMS Alpha V7.1-1H1
Oracle Rdb    V7.0-1
PH 4GL        7.10.F4

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.