That’s working thanks I have to increase dumbrk to 10 bytes as to taking into consideration 6 byte instructions I have initialize it to nops
Joe Reichman 170-10 73 rd ave Fresh meadows NY 11366 > 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
