I think we've all written code that was necessary at the time that subsequent releases made obsolete. I've got macros that AIF for 360, and I'll never need that in production anymore.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר ________________________________________ From: IBM Mainframe Discussion List on behalf of Mark Zelden Sent: Monday, April 21, 2025 11:08 PM To: [email protected] Subject: Re: Day of week from a program External Message: Use Caution 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://secure-web.cisco.com/1b_TUjt-2GjEShjNH6tQdE5q4HCYuwMLH9XI8PxJaEG30c84kxoLoCZCVA5vLlUjGbVoruWMYtQ3t7LlETy54u-xP012odhWRhzctGQPrGz7kWVCl3dwVolm1fpyLyPESGh71-lQxagkPhRSGV-zNb3UG28OcreIRFKUXsnquqLawF2YLsJevVfNnpDy1M4rTzLy10ZFF1dAzhBDmT2EXxeizAqzy_WkNn5_ZC5N9yJPAdun7bJmLhvgkztQNjQClAPufRwoq8eN3BLR096zTPioSwCyfLrJeiSAX9u9_FJ9BN2Hya73AU00jR_hAbpPygIgVacgEmLmJajdO1_hxLHfi1AVYkvDggY6mN4EMAVJQ17ecmjJSs2pK2qIHQI80L_aYF1Iom4WMGRKOGbsUG0YzkOuNxAzUKdA0y0Tt0_8/https%3A%2F%2Fwww.mzelden.com%2Fmvsfiles%2Frdate.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://secure-web.cisco.com/1oEnKI5DmcV9C1EZajQmp2djdiapOCnIUcfiN1OQB1-2n7Y8us101q6BXXmjNoGhEzCQJaXIzcETg-pzdNRn3bDyGO6zEnQ7C4GsK6WIDqg1CQwDgdZ4it_iSRrKyLjvfHw6GJGaD4PCYvY4QxukUYE8zKTuAKplUbcn4E7Bh6J5bRfmWE9rtTCIyz_DljPwUGwvCfV8KSuES5QxcuPOfDgVsjJAjmxFjyO9zI-RUq3gETYWoBc7nmCLgk_F79smWBFo_KnR5epkIdq7BPhPrxt28l9NtWPZTDoSNDSM130gAUFDQKUOllORhm9LVponvymE1cNZM9oMO3loFQ9wTdo0YIkIDbXEhs3p33EUpt85r3s8GO_kE4WkpMO_3jqFdrBOCm_QRmJjMtMlKQD6CZExCCYJiI9jHpnDKrY0Ct-I/http%3A%2F%2Fwww.mzelden.com%2Fmvsutil.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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
