Thanks > On Apr 17, 2025, at 11:10 AM, Rob Scott > <[email protected]> wrote: > > 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: [email protected] > 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 <[email protected]> wrote: >> >> If you can call LE, CEEDATE & CEEDYWK can do the work. >> >> El jue, 17 abr 2025, 13:52, Joseph Reichman < >> [email protected]> 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 [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 > > > ================================ > 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 [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
