On the few I just checked, EDMID = blanks.
Tony Thigpen
Lizette Koehler wrote on 02/19/2016 08:15 PM:
Where these tapes created by an external data manager? (EDM)
In a ca1 display of the tape (I like using the ISPF CA1 function)
See if this field is set
EDMID = HPDM
Lizette
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Tony Thigpen
Sent: Friday, February 19, 2016 6:09 PM
To: [email protected]
Subject: Question on CA-1
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
