home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / REXXCH03.ZIP / MONTH1.CMD < prev    next >
OS/2 REXX Batch file  |  1991-03-11  |  652b  |  26 lines
  1. /* to display the days of the month for January */
  2. day.1 = "Sunday"
  3. day.2 = "Monday"
  4. day.3 = "Tuesday"
  5. day.4 = "Wednesday"
  6. day.5 = "Thursday"
  7. day.6 = "Friday"
  8. day.7 = "Saturday"
  9.  
  10. do dayofmonth = 1 to 31
  11.    dayofweek = (dayofmonth+6)//7 + 1
  12.  
  13.    select
  14.       when dayofmonth = 1 then th = "st"
  15.       when dayofmonth = 2 then th = "nd"
  16.       when dayofmonth = 3 then th = "rd"
  17.       when dayofmonth = 21 then th = "st"
  18.       when dayofmonth = 22 then th = "nd"
  19.       when dayofmonth = 23 then th = "rd"
  20.       when dayofmonth = 31 then th = "st"
  21.       otherwise th = "th"
  22.    end
  23.  
  24.    say day.dayofweek dayofmonth||th "January"
  25. end
  26.