Right... but that wasn't there when I did my code so I had to do it "the hard way". I can't remember what it was, but there was something about 10 years ago I couldn't do with the builtin function that I could do with mine, I think related to a certain input and output date format, so I still used my code in something I wrote instead.
https://www.mzelden.com/mvsfiles/rdate.txt Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:[email protected] Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html On Tue, 22 Apr 2025 02:26:48 +0000, Seymour J Metz <[email protected]> wrote: >Yeah, it's a no-brainer when you're allowed t use REXX. I'm not aware of any >platform these days that doesn't support the third parameter of DATE(). > >-- >Shmuel (Seymour J.) Metz >http://mason.gmu.edu/~smetz3 >עַם יִשְׂרָאֵל חַי >נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר > > > >________________________________________ >From: IBM Mainframe Discussion List on behalf of Mark Zelden >Sent: Monday, April 21, 2025 10:00 PM >To: [email protected] >Subject: Re: Day of week from a program > > >External Message: Use Caution > > >I've been doing it with my RDATE REXX for years. I have RDATEF also on my web >site which >can be called as a REXX function instead. It was converting dates before it was >built into TSO REXX. > >RDATE is used is a few of my public execs to calculate "days between" or >display a date in a certain format. The output is always >the same format, but then you can massage it the way you want. Description of >RDATE from my web site... > > > >REXX date conversion routine. >Convert MM DD YYYY, YYYY DDD, or NNNNN to standard date output that includes >the day of week and the number of days (NNNNN) from January 1, 1900. This is >not the same as the Century date! Valid input dates range from 01/01/1900 >through 12/31/2172. A parm of "TODAY" can also be passed to the date >conversion routine. The output format is always as follows: > >MM/DD/YYYY.JJJ NNNNN WEEKDAY > > > >Regards, > >Mark >-- >Mark Zelden -eZelden Consulting Services - z/OS, OS/390 and MVS >ITIL v3 Foundation Certified >mailto:[email protected] >Mark's MVS Utilities: >http://secure-web.cisco.com/1qc8V9Ug-L5rhvkLZnirSHcM107NoplzTE3Oy6anH5T_QtI-IQDt6VROQyhob-3wm78uSEIhR00akz8Z0i9DcEQI2a23DrqfhSx3lvjjeGe5IP795-yp32aOgzVfuQ5V_o9LEhC-lmwMW-SYR7bnaJGUrskDzgpCgN2khvaSvwoEQx_eOBcatpcP1161SGokzA77ZfLb8XE5GNlXLY_nxN5C0KFXbG2coo7Rkpr87brlTA79ZdJvjnm5osPYNpKgriF6VkZ817TUk-3OeCHRu7W_5fB-s_W_OK93baSvq357JVArh5TRsVw1Jo6Nnss0vHS4LzvjKePQpjolycW2uGK5O0z4PfDgOmfwkQa3WjzG7FSLejlnD8YchE8xwHTtriDRpOjFvvK31ff1Bv0nlRJ_04x6LT0Q7MMbu69LX_nI/http%3A%2F%2Fwww.mzelden.com%2Fmvsutil.html > > > > > >On Sat, 19 Apr 2025 10:12:45 -0700, Tom Brennant<[email protected]> >wrote: > >>Nice! And I'd bet similar programs are all over the place, just not >>standardized. For example, I was told to write something similar in the >>1990's for the COBOL programmers to use. Date conversion, finding >>Christmas, things like that. I gave up at Easter. >> >>Has anybody mentioned running the date command under USS, such as: >>date -d '20250101' +%A >> >>On 4/19/2025 8:42 AM, Russell Witt wrote: >>> Another option would be to use exploit a third-party product. If you have >>> either CA 1 or TLMS installed as your Tape Management system, both have a >>> set of macros that can do all kinds of date processing (add days, calculate >>> the number of days between 2 dates, subtract days). And on of the things we >>> do with date is to "expand" them; which means turning 2025/001 into >>> "Wednesday, January 1st 2025". So you can get the character form of any >>> date you supply. >>> >>> Russell Witt >>> Broadcom >>> >>> -----Original Message----- >>> From: IBM Mainframe Discussion List [mailto:[email protected]] On >>> Behalf Of Jousma, David >>> Sent: Friday, April 18, 2025 10:50 AM >>> To: [email protected] >>> Subject: Re: Day of week from a program >>> >>> You are correct, but It appeared to me that Joe was looking to calculate >>> from current time. >>> >>> Dave Jousma >>> Vice President | Director, Technology Engineering >>> >>> >>> >>> >>> >>> From: IBM Mainframe Discussion List <[email protected]> on behalf of >>> Paul Gilmartin <[email protected]> >>> Date: Friday, April 18, 2025 at 11:47 AM >>> To: [email protected] <[email protected]> >>> Subject: Re: Day of week from a program >>> >>> >>> >>> On Fri, 18 Apr 2025 15:39:20 +0000, Jousma, David wrote: >>> >>> >>> >>>> Again, why not query system symbol &LWDAY, instead of trying to >>>> calculate? >>>> https://urldefense.com/v3/__https://www.ibm.com/docs/en/zos/3.1.0?topic >>>> =1-operation__;!!MwwqYLOC6b6whF7V!jjjrXaNBrDWXcSdx7cFjZJ6KViua-LtCTaLj0 >>>> FFh6e8ju61hiinUQe2J-nNMkM9SPgyeZloX_lDLpkxv2c9Gi2OH42t1D-VqqDo$<https:/ >>>> /urldefense.com/v3/__https:/www.ibm.com/docs/en/zos/3.1.0?topic=1-opera >>>> tion__;!!MwwqYLOC6b6whF7V!jjjrXaNBrDWXcSdx7cFjZJ6KViua-LtCTaLj0FFh6e8ju >>>> 61hiinUQe2J-nNMkM9SPgyeZloX_lDLpkxv2c9Gi2OH42t1D-VqqDo$> >>> >>>> >>> >>> What if one needs the day of week corresponding to an archival timestamp? >>> >>> >>> >>> -- >>> >>> gil >>> >>> >>> >>> ---------------------------------------------------------------------- >>> >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> >>> send email to [email protected] with the message: INFO IBM-MAIN >>> >>> This e-mail transmission contains information that is confidential and may >>> be privileged. It is intended only for the addressee(s) named above. If >>> you receive this e-mail in error, please do not read, copy or disseminate >>> it in any manner. If you are not the intended recipient, any disclosure, >>> copying, distribution or use of the contents of this information is >>> prohibited. Please reply to the message immediately by informing the sender >>> that the message was misdirected. After replying, please erase it from your >>> computer system. Your assistance in correcting this error is appreciated. >>> >>> ---------------------------------------------------------------------- >>> For IBM-MAIN subscribe / signoff / archive access instructions, send email >>> to [email protected] with the message: INFO IBM-MAIN >>> >>> ---------------------------------------------------------------------- >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email to [email protected] with the message: INFO IBM-MAIN >>> >>> >> >>---------------------------------------------------------------------- >>For IBM-MAIN subscribe / signoff / archive access instructions, >>send email to [email protected] with the message: INFO IBM-MAIN > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN > > > > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
