Yes, but there is always a simpler solution: /* Rexx */ year=2010 y=year//100 c=(year-year//100)/100 mons = 'Sat Sun Mon Tue Wed Thu Fri' say word(mons,((y+trunc(y/4)+31+substr(6420,(c//4)+1,1))//7)+1) exit 0
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Bri P Sent: 24. syyskuuta 2008 11:37 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: REXX EXEC Christmas = 20081225 Weekday = DATE('W',Christmas,'S') Brian -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Claudio Marcio Sent: 24 September 2008 05:21 To: IBM-MAIN@BAMA.UA.EDU Subject: REXX EXEC Hi, I need make one REXX exec to enter with one year the return the day christmas of week. ex: year 1978 day of th week - monday year 2000 day of the week - saturday how meke in REXX language? regards ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html