|
View previous topic :: View next topic
|
| Author |
Message |
Harold Barnes
New User
Joined: 27 Oct 2015
Posts: 33
Location: United States
|
|
|
|
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 |
|
 |
steve-myers
Active Member
Joined: 30 Nov 2013
Posts: 917
Location: The Universe
|
|
|
|
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 |
|
|
Harold Barnes
New User
Joined: 27 Oct 2015
Posts: 33
Location: United States
|
|
|
|
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 |
|
|
steve-myers
Active Member
Joined: 30 Nov 2013
Posts: 917
Location: The Universe
|
|
|
|
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 |
|
|
|
|
