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
 
TSO TEST writing to dataset

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

New User


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

PostPosted: Sat Aug 03, 2019 3:02 am    Post subject: TSO TEST writing to dataset
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: 760
Location: The Universe

PostPosted: Sat Aug 03, 2019 5:52 am    Post subject:
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: 17
Location: United States

PostPosted: Wed Aug 14, 2019 3:09 am    Post subject:
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: 760
Location: The Universe

PostPosted: Wed Aug 14, 2019 4:46 am    Post subject:
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   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts DFSMShsm Dataset Recovery with B and ... Joerg.Findeisen JCL & VSAM 2 Sat Oct 05, 2019 10:01 pm
No new posts Organization of a migrated dataset saravanakmr.tpr All Other Mainframe Topics 2 Fri Sep 20, 2019 6:10 pm
No new posts Unable to delete dataset - VSAM datas... netcrawler JCL & VSAM 20 Fri Jul 26, 2019 2:06 pm
No new posts Placement of an LPALIB dataset for IPL Alan Playford JCL & VSAM 3 Sun May 12, 2019 5:50 pm
No new posts Need to strip off first line - ascii ... harisukumaran DFSORT/ICETOOL 7 Thu May 02, 2019 12:35 am

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