Caveat: I'm a daily digester so responses are always delayed... Tony: you've got good advice from both Lizette & Russ but I wonder if you need to go the utility route. I infer from the information below that the data will be gone (*poof*) once you've completed the process. Given that premise, I wonder why you don't simply DELETE the GDGs (TSO/Rexx?) and let normal, (daily?) catalogue processing update the CA-1 database. If their retention is not catalogue based or the RetPd value has not arrived, then, yes, you'll need to manually manipulate the CA-1 database as has been discussed.
--------> signature = 8 lines follows <-------- Neil Duffee, Joe Sysprog, uOttawa, Ottawa, Ont, Canada telephone:1 613 562 5800 x4585 fax:1 613 562 5161 mailto:NDuffee of uOttawa.ca http:/ /aix1.uOttawa.ca/ ~nduffee “How *do* you plan for something like that?” Guardian Bob, Reboot “For every action, there is an equal and opposite criticism.” “Systems Programming: Guilty, until proven innocent” John Norgauer 2004 "Schrodinger's backup: The condition of any backup is unknown until a restore is attempted." John McKown 2015 -----Original Message----- From: Tony Thigpen [mailto:[email protected]] Sent: February 19, 2016 20:09 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? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
