Great advice from Lizette as expected. I would also change the EXPDT at the same time, so they all go scratch. Once they are all scratched, you can put the entire range in DELETE status.
If you are planning on re-using the range for other newer virtual tapes or something that is fine. Otherwise, once they are in DELETE status you can simply remove them from the TMC by using the TMSXTEND utility. Russell Witt CA 1 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Lizette Koehler Sent: Friday, February 19, 2016 7:29 PM To: [email protected] Subject: Re: Question on CA-1 EMID=0000 are good. That means you will probably not have to update them to allow them to scratch. I like the TMSUPDTE process. //TMSUPDTE EXEC PGM=TMSUPDTE,PARM='NODSN,AUDIT' //TMSRPT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSIN DD * VOL 200001,NOCHAIN REP DSN=HEXZEROS REP DSN17=HEXZEROS REP ROBTY=X'89' You can use DSN matching by changing NODSN to DSN and including DSN= in the control card. The Utilities manual for CA1 will have good details on this TMSUPDTE process. See if this might be just as good for your needs. Lizette > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] > On Behalf Of Tony Thigpen > Sent: Friday, February 19, 2016 6:22 PM > To: [email protected] > Subject: Re: Question on CA-1 > > I just found that some of the oldest tapes have EDMID = 0000 > > Tony Thigpen > > Tony Thigpen wrote on 02/19/2016 08:19 PM: > > 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
