Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Scripting TSO TEST

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Harold Barnes

New User


Joined: 27 Oct 2015
Posts: 21
Location: United States

PostPosted: Wed Apr 15, 2020 7:19 am    Post subject: Scripting TSO TEST
Reply with quote

I'm developing a simple REXX script queuing TSO TEST commands followed by
TEST <ALC module> LOAD

The queued commands are "AT +xxx" breakpoints (listpsw; GO)

I would like to add EXEC to a breakpoint to call a separate script to evaluate the psw data. I need to check the condition code and write depending on the CC value.

How do I pass the PSW data to the sub script?
Back to top
View user's profile Send private message

steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 843
Location: The Universe

PostPosted: Wed Apr 15, 2020 9:27 am    Post subject:
Reply with quote

I wouldn't bet you could run the TSO EXEC command at a TSO TEST breakpoint. If you can, you can trap LISTPSW output and extract the condition code from that.
Code:
PSW LOCATED AT 9C6108                                     
  XRXXXTIE   KEY  XMWP  AS CC  PROGMASK  EA BA  INSTR ADDR
  00000111    8   1101  00 00    0000     0  0   0002AFFA
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2192
Location: Silicon Valley

PostPosted: Thu Apr 16, 2020 10:23 am    Post subject: Reply to: Scripting TSO TEST
Reply with quote

I think this is one of the few instances where CLIST is better than Rexx.

I think in your CLIST, you can issue your TEST command and then subsequent CLIST statements can include your AT statements.
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 843
Location: The Universe

PostPosted: Thu Apr 16, 2020 4:29 pm    Post subject:
Reply with quote

Well, by accident, I discovered you can issue an EX (EXEC) command in TSO TEST, though I cannot say if you can retrieve data from an OUTTRAP. I cannot think of any way you can distinguish between messages from TEST or trapped messages from your program.

Here is where Rexx might work better than CLIST. A Rexx EXEC could - in theory - run the RB chain, find "your" RB, though how it could reliably determine which RB is "your" RB, and retrieve the condition code from the PSW in "your" RB. Just a thought; one way to deduce if it found "your" RB is to look at the interrupt code in the RB. If it's the interrupt code is for the SVC instruction TEST uses to force the trap for AT, you've found "your" RB. I cannot guess if that would work. Well, good luck and let us know what you have found.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts a copybook getting improper values in... Mahammad Musthafa COBOL Programming 7 Sat Jul 18, 2020 12:58 am
No new posts Problème reproducing a production bu... ELLAHEYA ABENDS & Debugging 1 Mon Jun 15, 2020 7:05 pm
No new posts Feild level validation to test first ... sruthi3466 JCL & VSAM 10 Thu Apr 23, 2020 2:47 pm
No new posts TSO TEST writing to dataset Harold Barnes IBM Tools 3 Sat Aug 03, 2019 3:02 am
No new posts The Test under Mask (TM) Instruction steve-myers PL/I & Assembler 7 Sat Jan 05, 2019 2:36 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us