Binyamin Here it is
AT +160 (CONDBREK 7R?+24 2 0038) NONOTIFY Here is the CLIST CONDBREK ddname SYSUEXEC PROC 3 ADDRESS LEN VALUE SET ENDLEN = (12+((&LEN*2)-1) SET &SYSOUTTRAP = 1 LIST &ADDRESS L(&LEN) XC SET &SYSOUTTRAP = 0 SET VAL = &STR(&SUBSTR(12:&ENDLEN,&SYSOUTLINE1) IF &VAL = = &VALUE THEN + WRITE BREAK POINT CONDTION HIT Else GO /* CONTINUE */ THANKS -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Binyamin Dissen Sent: Wednesday, October 30, 2024 2:55 AM To: [email protected] Subject: Re: Conditional breakpoint TSO TEST TEST uses PUTGET/PUTLINE Show the AT command. Show the output.. On Tue, 29 Oct 2024 20:49:39 -0400 Joseph Reichman <[email protected]> wrote: :>I do capture the output but for some reason I don't break on equal condition :> :>> On Oct 29, 2024, at 8:47?PM, Seymour J Metz <[email protected]> wrote: :>> :>> ?Even if TSO TEST LIST uses TPUT, you can capture the output if you run under the TSO Session Manager. :>> :>> -- :>> Shmuel (Seymour J.) Metz :>> http://mason.gmu.edu/~smetz3 :>> ??? ?????????? ??? :>> ?????? ??????????? ???? ?????????? :>> :>> :>> :>> ________________________________________ :>> From: IBM Mainframe Discussion List <[email protected]> on behalf of Joseph Reichman <[email protected]> :>> Sent: Tuesday, October 29, 2024 6:26 PM :>> To: [email protected] :>> Subject: Conditional breakpoint TSO TEST :>> :>> Caution: This email did not originate from George Mason's mail system. Do not click links or open attachments unless you recognize the sender and know the content is safe. :>> :>> :>> Hi :>> :>> Is there a way to make a conditional breakpoint by trapping the TEST list command getting its value and comparing it :>> :>> What I mean at breakoint execute a clist which issues and traps the list command for what you want to compare and if its equal do nothing :>> :>> Other wise go :>> :>> SET &SYSOUTRAP = 1 :>> List 7R?+24 L(2) XC :>> SET &SYSOUTRAP = 0 :>> :>> Set Val = &str(&substr(12:15,&SYSOUTLINE1) :>> :>> If &val = 0012 then + :>> Write hit condition :>> Else :>> Go :>> :>> This code doesn't seem to work :>> :>> Thanks :>> ---------------------------------------------------------------------- :>> 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 -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel ---------------------------------------------------------------------- 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
