Make two backup copies of the TMC, each to a standard label tape using the following EXEC. The EXEC also backs up the Audit file and appends the backup to the existing Audit file backup tape, 300624. Descriptive data set names are assigned to the backups. This example assumes that the CA VM:Tape 191 disk is linked as VMTLIBR’s 1F0 disk and is accessed as the D-disk.
/*******************************************************************/ /* Backup the TMC and AUDIT files to tape */ /* 1F0 is VMTAPE’s 191 */ /* 1F2 is VMTAPE’s 1B0 (TMC - read only) */ /* 1F3 is VMTAPE’s 1D0 (AUDIT - read/write) */ /*******************************************************************/ ‘VMTAPE MOUNT SCRATCH 181 DSN CMSTMC PRI BACKUP (LABEL SL’, ‘RETPD 01 WAIT STACK LIFO’ pull . volser1 . queue ‘CMSTMC.PRI.BACKUP’ ‘LABELDEF TMCBKP1 VOLID’ volser1 ‘FSEQ 1 VOLSEQ 1 FID ?’ ‘FILEDEF TMCBKP1 TAP1 SL 1 (BLOCK 3400 RECFM F LRECL 340’ ‘VMTAPE MOUNT SCRATCH 182 DSN CMSTMC ALT BACKUP (LABEL SL’, ‘RETPD 01 WAIT STACK LIFO’ pull . volser2 . queue ‘CMSTMC.PRI.BACKUP’ ‘LABELDEF TMCBKP2 VOLID’ volser2 ‘FSEQ 1 VOLSEQ 1 FID ?’ ‘FILEDEF TMCBKP2 TAP2 SL 1 (BLOCK 3400 RECFM F LRECL 340’ ‘VMTAPE MOUNT SCRATCH 183 DSN CMSAUDIT HISTORY (LABEL SL’, ‘RETPD 01 WAIT STACK LIFO’ pull . volser3 . queue ‘CMSTMC.PRI.BACKUP’ ‘LABELDEF AUDITBKP VOLID’ volser3 ‘FSEQ 1 VOLSEQ 1 FID ?’ ‘FILEDEF AUDITBKP TAP3 SL 1 (BLOCK 3700 RECFM F LRECL 370’ ‘ACCESS 1F0 D’ ‘ACCESS 1F2 F/F’ ‘ACCESS 1F3 G’ ‘VMTBKP BACKUP (PRINT’ exit rc
|
Copyright © 2013 CA.
All rights reserved.
|
|