Do you need to erase the tapes before they are destroyed? If so, check out CTSDEU utility.
Lizette > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Lizette Koehler > Sent: Friday, February 19, 2016 6: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
