Removing CA-1 TMC Vaulting and checking in tapes that are checked out
Article ID: 139989
Updated On:
Products
Issue/Introduction
We are being tasked to remove all of the Tape vaulting for our customer, as all of thier tapes are not virtual and will not be vaulted. All tapes are now replicated to another pair of IBM TS7760 in out Disaster Recovery Data center.
We currently execute the following Ca-1 utilities in the AM
We schedule a daily batch job that executes these 3 utilities.
1) TMSVMEDT EXEC PGM=TMSVMEDT,REGION=4096K
2) TMSVMVLT EXEC PGM=TMSVMVLT,REGION=4096K
3) TMSVMUPD EXEC PGM=TMSVMUPD,COND=(4,LT,TMSVMVLT)
TMSVMEDT reads the Vault Pattern Description Data Set, selects eligible TMC records,
and creates work data sets for TMSVMVLT.
TMSVMVLT uses output from TMSVMEDT to determine movement into and out of off-site
vaults and the tape library. This program creates a data set for use by TMSVMUPD and a
report writer such as CA Earl.
TMSVMUPD uses output from TMSVMVLT to update the TMC with the new vaulting
environment information.
Picking, distribution, and inventory reports can be created using the output data set from
TMSVMVLT. A report writer such as CA Earl can produce the reports in any sequence.
Question, we want to set the Ca-1 Vault jobs to execute-N , so they no longer execute and vault any tapes.
But prior to not executing the Vault job any longer, we want to CHECKIN all of the tapes that are currently vaulted and out-coded to the vaults.
Is there an automated process we can execute that will CHECKIN all the the outcoded tapes, prior to setting all of the batch vaults jobs to EXEC=N.
Environment
Release : 14.0
Component : CA 1 Tape Management
Resolution
in order to return all volumes from the vaults you have two options:
- remove all DSN statements from your VPD so that you just have
VAULTS=USLA,USLD,ESA0,CVLT,AVLT,DVLT and a dummy DSN entry, which does not
match any existing data set and continue to run Vault Management utilites.
Using this method no new tapes will be vaulted anymore and old tapes will be
returned, when they have expired.
The VPD could look like this for example
VAULTS=USLA,USLD,ESA0,CVLT,AVLT,DVLT
DSN=does.not.exist
V=USLA,C=1
For expired vaulted tapes you will then see message
"EXPIRED, HAD NO PATTERN, THUS REMOVED FROM VLT=vvvv 'ELIG FOR SCRATCH'"
In TMS REPORT-24 from TMSVMVLT
However, using this method might be take long to checkin all the vaulted
volumes as they have to expire first.
- another possibility would be to checkin the tapes manually running TMSUPDTE using
//TMSUPDTE.SYSIN DD *
VOL vvvvvv-vvvvvv,NODSN,NOCHAIN,NOINTAL
REP OUTCODE=' VMS'
REP SLOT=HEXZEROS
REP OUTDATE=ZEROS
against the ranges in your TMC. The above sample would update all the volumes
in your TMC, which will result in a large amount of updates and usage of AUDIT
records. In order to prevent this you could also run TMSUPDTE with an additional
VER on the OUTCODE for each of your VAULTS. For example:
//TMSUPDTE.SYSIN DD *
VOL vvvvvv-vvvvvv,NODSN,NOCHAIN,NOINTAL
VER OUTCODE=USLA
REP OUTCODE=' VMS'
REP SLOT=HEXZEROS
REP OUTDATE=ZEROS
In this case only the volumes that contain USLA in the OUTCODE field will be updated.
NOTE: TMSUPDTE will end with RC12 in this case, since the VER will fail for all volumes
that don't have USLA in the OUTCODE.
NOTE: the updates performed by the above TMSUPDTE are actually the same as if you
perform an online CHECKIN using the ISPF interface. Just for info.
Feedback
