IF TEST = 1
{
  ASSIGN MyDate = "1/24/1973"
}

//Converts the contents of the variable to an OLE automation date/time by 
//parsing the string contents, and then returns the day of week as an ordinal 
//value from 0 TO 6 where 0 is Sunday. The string contents must match one of 
//the Windows standard date formats like MM/dd/yyyy.

ASSIGN MyDow = MyDate.asdatedow

SWITCH MyDow
{
  CASE 0
  {
    ASSIGN NewToday = "Sunday"
  }
  CASE 1
  {
    ASSIGN NewToday = "Monday"
  }
  CASE 2
  {
    ASSIGN NewToday = "Tuesday"
  }
  CASE 3
  {
    ASSIGN NewToday = "Wednesday"
  }
  CASE 4
  {
    ASSIGN NewToday = "Thursday"
  }
  CASE 5
  {
    ASSIGN NewToday = "Friday"
  }
  CASE 6
  {
    ASSIGN NewToday = "Saturday"
  }
}