IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

TSO TEST writing to dataset


IBM Mainframe Forums -> IBM Tools
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
Harold Barnes

New User


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

PostPosted: Sat Aug 03, 2019 3:02 am
Reply with quote

I'm running a TSO TEST script. I'm writing data to a dataset with the LIST PRINT subcommand. The data is written at each breakpoint

I would like to add reference comments to the information written ... like the current AT location.

Suggestions?


AT +xxx (WHERE; q xxx+0 ; LIST +yyy X LENGTH)(5) print ('HLQ1,HLQ2') ; q zzz..+0 ; GO; )
Back to top
View user's profile Send private message
steve-myers

Active Member


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

PostPosted: Sat Aug 03, 2019 5:52 am
Reply with quote

I have been using TSO TEST for more than 45 years. I must admit I never knew its LIST subcommand would write to a data set!

What I would try is rather than use LIST to write to a data set is to run the whole test script in TSO in batch and write the entire output to a data set, like this -
Code:

//A       EXEC PGM=IEFBR14
//SYSTSPRT DD  DISP=(MOD,DELETE),UNIT=SYSALLDA,SPACE=(TRK,0),
//             DSN=&SYSUID..BREGS.SYSTSPRT
//B       EXEC PGM=IKJEFT01
//SYSTSPRT DD  DISP=(,CATLG),UNIT=SYSDA,SPACE=(TRK,(1,1)),
//             DSN=*.A.SYSTSPRT
//SYSTSIN  DD  *
TEST BREGS OBJ
AT +2E (L 0R:1R;GO)
AT +32 (L 13R%+12N X L(8);GO)
AT +38 (L 12R%+111 XC L(6);GO)
GO
RUN
END

I directed to output to a data set. After running the job, the data set contained -
Code:
1READY
 TEST BREGS OBJ
 TEST
 AT +2E (L 0R:1R;GO)
 TEST
 AT +32 (L 13R%+12N X L(8);GO)
 TEST
 AT +38 (L 12R%+111 XC L(6);GO)
 TEST
 GO
 AT +2E
  0R  18452652   1R  0119214F
 AT +32
 000340DC.  18452652 0119214F                                        00000000
 AT +38
 0003412B.  F0F1F87A F4F5                        *018:45          *  00000000
 PROGRAM UNDER TEST HAS TERMINATED NORMALLY+
 BREAKPOINTS SET ARE STILL VALID
 TEST
 RUN
 READY
 END
 READY
 END

Now I'm not sure this is exactly what I think you want, but it's at least pretty close.

Location +2E is just after a TIME macro: the time of day is in packed decimal digits in reg 0, reg 1 has the date as the equivalent of PL4'cyyddd'.

Location +32 is just after regs 0 and 1 have been stored in a work area at register 13 + 12.

At location +38 is just after a ED instruction has processed the time of day to this pattern - X'F021207A2020'.

I'm not going to try it, but I think you are misusing the QUALIFY (Q) command. I usually define the symbol as a CSECT name or DSECT name. I could not do it in my example because I was "testing" an object deck I had laying around, not a load module linked with TEST, so the symbol names were not available.

HTH

By the way, if I had developed this topic, it might be better put in the PL/I & Assembler area, as TSO TEST is more of interest to us few surviving Assembler dinosaurs. But TSO TEST is an IBM tool, so IBM tools is also good!
Back to top
View user's profile Send private message
Harold Barnes

New User


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

PostPosted: Wed Aug 14, 2019 3:09 am
Reply with quote

There is a sub-command TITLE but I think it just assigns a label to a displacement.


When using the list sub-command is there a way to display the memory pointed to by a register?

this lists the content of the register:
list 1r

1R 003C431E

That is a memory address.

list 003C431E.

003C431E. 19600518


I would like 1 list command that do both.

list 1r(10) x

Something like that would be great. List what reg 1 is pointing to for 10 bytes displayed in hex.
Back to top
View user's profile Send private message
steve-myers

Active Member


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

PostPosted: Wed Aug 14, 2019 4:46 am
Reply with quote

list 1r% for a 24-bit address in register 1
list 1r? for a 31 bit address in register 1
list 1r% x l(10)

All of that is in help list syn while you are in test, and in the manuals if you would bother to actually read them. Use Google to search for TSO-E Command Reference. There is an example in my previous post, which you probably did not bother to analyze and at least try to understand.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IBM Tools

 


Similar Topics
Topic Forum Replies
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Allocated cylinders of a dataset DB2 12
No new posts Sort First/last record of a subset th... DFSORT/ICETOOL 7
No new posts Two input files & writing counter... DFSORT/ICETOOL 12
Search our Forums:

Back to Top