Show the
CONTROL LIST
On Wed, 30 Oct 2024 07:55:15 -0400 Joseph Reichman
<[email protected]> wrote:
:>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
