Here "timer unit" refers to the low bit of the TOD clock, not to the OS constant known as a timer unit.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר ________________________________________ From: IBM Mainframe Discussion List on behalf of Rob Scott Sent: Thursday, April 17, 2025 11:10 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Day of week from a program External Message: Use Caution I have not tested this, however maybe something like : (1) Grab the current STCK(E). (2) Divide it by the number of timer units in 24hours to give number of days since STCK value was hex zeroes (1900/01/01) (3) Divide that number by 7 (days in week) and get the remainder (4) Jan 1st 1900 was Monday (remainder 0) - so you can assign Tuesday to 1, Wednesday to 2 etc etc Leap seconds might come into play along the way Rob Scott Rocket Software ________________________________ From: IBM Mainframe Discussion List on behalf of Joseph Reichman Sent: Thursday, April 17, 2025 3:42 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Day of week from a program EXTERNAL EMAIL I would have to change it to assembler LE prog ok Thanks > On Apr 17, 2025, at 9:54 AM, salva <sa...@rczero.com> wrote: > > If you can call LE, CEEDATE & CEEDYWK can do the work. > > El jue, 17 abr 2025, 13:52, Joseph Reichman < > 000005812645a43c-dmarc-requ...@listserv.ua.edu> escribió: > >> Hi >> >> Would anyone know if there is a way to get the day of week from any of the >> date macros STCKCONV >> >> Thanks >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ================================ Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy ================================ This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
