$$ MODE TUSCRIPT

days="Monday'Tuesday'Wednesday'Thursday'Friday'Saturday'Sunday"
dayofweek=DATE (today,day,month,year,number)
day=SELECT (days,#dayofweek)

SELECT day
CASE "Monday"
   ---> do something
CASE "Saturday","Sunday"
   ---> do something
DEFAULT
   ---> do something
ENDSELECT