How can I manually expire and scratch an EDM tape?

Products

• CA 1 Flexible Storage
• CA 1 Tape Management - Copycat Utility
• CA 1 Tape Management - Add-On Options

Issue/Introduction

How can I manually expire and scratch a tape that is marked as EDM controlled?

 

 

Environment

CA/1 R14.0 and R15.0

Resolution

Tapes under EDM control have EXPDT=PERMANENT, the EDM bit X'20' is on in FLAG3 and they have an EDMID.

In order to expire and scratch these tapes run TMSUPDTE using the following control statements:

//TMSUPDTE.SYSIN DD *
VOL VVVVVV,NODSN 
REP EXPDT=ZEROS 
REP FLAG3=HEXZEROS 
REP EDMID=HEXZEROS  

This resets the EXPDT, clears the EDMID and turns the EDM bit in FLAG3 off.
The next TMSCLEAN PARM='SCRATCHLIST' will then scratch the tape or the tape can be scratched manually using the immediate Scratch Option in the CA 1 ISPF interface.

Additional Information

You can also use:
//TMSUPDTE.SYSIN DD *
VOL VVVVVV,NODSN 
REP EXPDT=<todays date> eg:2023/123
OI FLAG2=01

Then run TMSCLEAN to PARM='SCRATCHLIST'