It's clean-up time.
I have about 400 old 3380 tapes I need to get out of the tape library
and distroy. These are all over 7 years old for systems that are long
gone. They were originally put into the catalog with multiple
generations, but since no new generations are being created, they have
not been scratching.
I found the following old jcl in a library and wanted to ask if this is
the best way to handle this:
//TMSEXPD EXEC PGM=TMSEXPDT,PARM='TEST'
//TMSRPT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DSN=MPXSS1.UPSTREAM.DAILY.BACKUP1.G0189V00,LABEL=RETPD=2600
.. a bunch more ..
/*
Then, just let the next day scratch process scratch the tapes.
I plan on using REXX to build the SYSIN, including all DSNs (full GEN
number) found on every tape volume I need to scratch out of the tape
library.
Also, Do I need to run TMSOSCAT after the alters, after the scratch
process, or not at all?
Thoughts?
--
Tony Thigpen
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
