TLMSTRS allows you to access the CA TLMS work record just after TRS has determined that the volumes should be scratched. The volumes may then be allowed to continue in scratch status on return to TLMSTRS.
To cause the volumes to bypass TRS scratch processing, place a nonblank character in byte 12 of the 60-byte user message. On return to TLMSTRS, the volumes will not be set to scratch status. The TLMS041 report prints the controlling data set information of the bypassed volumes and the 60-byte user message. If byte 12 is a blank character, TRS scratch processing continues and the volumes will be scratched.
Include the following statement in your TRS procedure (CATTRS):
//CAIVMFI DD DSN=CAI.TLMS.VMF,DISP=SHR
Your exit must always zero the return code in register 15 before returning to TLMSTRS.
The assembler DSECT for the Volume Master File base record is named TLMSVMFB, and is TYPE=BASE. The multi-data set record is TYPE=MDS and the multivolume record, TYPE=MVL, maps to the same DSECT.
This user exit should be assembled and linked through SMP USERMOD. An example of the JCL is located in CAI.CTAPJCL (TLMJU016).
This exit is activated by specifying YES for the TRSEXIT system option.
|
Copyright © 2014 CA.
All rights reserved.
|
|