Hi Just had thought in the scenario outlined Below where I am executing the instruction breakpoint from a different storage area the integrity of the CC remains intact
So that in a temporary area I execute a TM Which sets the CC and the I go to a instruction let’s say BZ the condition code set by the TM will Be acted upon by the BZ Thanks > On Jul 9, 2018, at 9:57 AM, Walt Farrell <[email protected]> wrote: > >> On Mon, 9 Jul 2018 08:29:09 -0400, Joseph Reichman <[email protected]> >> wrote: >> >> I have gotten the following code to work (with the help of Binyamin) as I >> will list below but the problem is it is only being executed once and I am >> looping thru a number of records >> Seems like when I get to DUMBRK OFF +4; GO +4 it is removed and I would like >> to process it for the next iteration of the code >> >> LOAD 'MYTEST.LOAD(TESTPROG)' >> >> GETMAIN 24 SP(0) LOC(BELOW) EQUATE(RGESVE) >> GETMAIN 2 SP(0) LOC (BELOW) EQUATE(DUMBRK) >> >> DUMBRK = X'0700' >> >> AT +4( AT DUMBRK (COPY RGESVE 14R L(16); OFF +4; GO +4): COPY 14 RGESVE >> L(16); RGEAVE+10=C'PARM1'; CALL TESTPROG.TESTPROG PARM(RGESVE) >> RETURN(DUMBRK)) TITLE('BREAK AT +4') > > Suggestion: > (1) Increase the size of DUMBRK so it can include the instruction located at > +4 in TESTPROG, plus another x'0700'. Set DUMBRK to x'0700', then the > instruction from TESTPROG, then another x'0700'. Assuming that TESTPROG > instuction is 4 bytes in length, DUMBRK would then be 8 bytes in length. > > (2) For the breakpoints, something like the following (untested): > > AT +4 (COPY 14R RGESVE L(16); RGEAVE+10=C'PARM1'; CALL TESTPROG.TESTPROG > PARM(RGESVE) RETURN(DUMBRK)) TITLE('BREAK AT +4')) > AT DUMBRK (COPY RGESVE 14R L(16); GO DUMBRK+2) > AT DUMBRK+6 (GO +8) > > -- > Walt > > ---------------------------------------------------------------------- > 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
