Hi Just ran the code under TESTAUTH
I made a breakpoint at the BASR and did a L 1R?? L (8) XC it pointed to 0000008954400000 which 90 * f4240000 WHAT Dan Dalby posted to be a second After the BASR I got a IKJ56640I SYSTEM ABEND CODE D23 REASON CODE FF050064 looking into it Thanks -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of retired mainframer Sent: Wednesday, December 26, 2018 10:32 AM To: [email protected] Subject: Re: Adding 90 seconds to 8 byte TOD FIELD Look at the assembled contents of your address literal. The * does not refer to the location of the LA instruction but the address of the literal itself. Are you sure that your DC did not skip some bytes to force doubleword alignment? If it did, your B instruction points to the wrong place. If it didn't skip for this run, are you sure it won't the next time you make a change. What is your aversion to using labels? > -----Original Message----- > From: IBM Mainframe Discussion List <[email protected]> On > Behalf Of Joseph Reichman > Sent: Wednesday, December 26, 2018 5:39 AM > To: [email protected] > Subject: Re: Adding 90 seconds to 8 byte TOD FIELD > > Thanks > > I changed that however doesn't seem like I am getting out of the wait > as I put a WTO after the code and IT didn't execute > > Thanks > > WAIT ANOP > L R15,CVTPTR > USING CVT,R15 GET CVT ADDRESS > L R15,CVTECVT > DROP R15 > USING ECVT,R15 GET ECVT ADDRESS > L R15,ECVTXTSW X'384'(R15) GET > ECVTXTSW ADDRESS > LA R1,=A(*+10) PARAMTER LIST > BASR R14,R15 GO THERE > B *+12 > DC FDS12'90E6' 90 SECOND WAIT > LM 15,2,SAVER > > > > > > -----Original Message----- > From: IBM Mainframe Discussion List <[email protected]> On > Behalf Of Peter Relson > Sent: Wednesday, December 26, 2018 8:19 AM > To: [email protected] > Subject: Re: Adding 90 seconds to 8 byte TOD FIELD > > > L R15,16 GET CVT ADDRESS > > L R15,X'8C'(R15) GET ECVT ADDRESS > > L R15,X'384'(R15) GET ECVTXTSW ADDRESS > > LA R1,=A(*+10) PARAMTER LIST > > Macros such as IHAPSA, CVT, and IHAECVT are provided for a reason -- > so that > you don't need to hard-code offsets and in so doing make your code > less readable and less maintainable. > > Why do you avoid them? z/OS macros themselves might hard-code offsets > because we don't necessarily want to impose a requirement on the > invoker that they include other macros. But if you're writing your own > code, you should insist on imposing that requirement on yourself. > > Peter Relson > z/OS Core Technology Design > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to [email protected] <mailto:[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
