But it doesn't matter if it is a leap year for the month of December, is that right?
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Mansell, George R. Sent: 24. syyskuuta 2008 21:07 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: REXX EXEC A mod 400 year is also a leap year. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Lindy Mayfield Sent: Wednesday, September 24, 2008 6:13 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: REXX EXEC 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 ------------------------------------------------------------------------ ------ NOTICE: This electronic mail message and any attached files are confidential. The information is exclusively for the use of the individual or entity intended as the recipient. If you are not the intended recipient, any use, copying, printing, reviewing, retention, disclosure, distribution or forwarding of the message or any attached file is not authorized and is strictly prohibited. If you have received this electronic mail message in error, please advise the sender by reply electronic mail immediately and permanently delete the original transmission, any attachments and any copies of this message from your computer system. Thank you. ======================================================================== ====== ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
