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 <IBM-MAIN@LISTSERV.UA.EDU> On > Behalf Of Joseph Reichman > Sent: Wednesday, December 26, 2018 5:39 AM > To: IBM-MAIN@LISTSERV.UA.EDU > 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 <IBM-MAIN@LISTSERV.UA.EDU> On > Behalf Of > Peter Relson > Sent: Wednesday, December 26, 2018 8:19 AM > To: IBM-MAIN@LISTSERV.UA.EDU > 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 lists...@listserv.ua.edu <mailto: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
