Neale, currently there is no EXIT point available in VM:Tape at the time a volume is scratched. At this time there is only a DSE (Data Security Erase) EXIT. However that EXIT is not called until a scratch tape is being mounted for reuse, not at the time the tape is scratched.
That being said, there are a couple of possibilities that you may be able to use in the meantime (until such an EXIT may be provided) to accomplish what you would like to do.
The VMTAPE SCRATCH command produces a report of the volumes that have been scratch as result of issuing the command. By default, the SCRATCH REPORT is sent to the PRT queue of the command issuer:
<<< snip >>>
* * * Top of File * * *
SCRATCH REPORT for 2014/296 CA VM:Tape (R) Copyright (c) 2011 CA.
Page 1
VOLSER OWNER LABEL TRK/DEN ARM
CA3038 VMBACKUP SL 36/EXF N/A
CA9167 VMB036 SL 36/EXF N/A
* * * End of File * * *
<<< snip >>>
Alternatively, the DISK option can be included on the VMTAPE SCRATCH command. When the DISK option is included, additionally copies of the TMC records of volumes that have been scratched are written to the file SCRATCH LIST on the A-DISK of the user who issued the command.
You could use either of these outputs produced by the VMTAPE SCRATCH command to capture the volumes that have been scratched.
A simple way to get rid of the data (all but the VOL1 record) from you disk storage would be to reinitialize each volume in the SCRATCH REPORT/SCRATCH LIST using the VMTAPE TAPEINIT utility:
VMTAPE TAPEINIT SCRATCH volser ( NEW
Alternatively, you could write your own program to process the volumes found in the SCRATCH REPORT/SCRATCH LIST to issue volume maintenance commands to the zPDT.
JR Imler