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
