Previous Topic: Sample Backup JCLNext Topic: Increasing the Space in a VLS File


Sample Restore JCL

In some instances, it might be necessary to restore all of the Datadictionary, all CA IPC, and CA Ideal VLS files to maintain synchronization of the definitions should any one of the components become damaged. (Also refer to the following section on restoring deleted entities.) You can restore these files by using the output of the previously described full CA Ideal /DDOL system backup as input to a series of DBUTLTY LOAD steps (one for each dictionary file) and VLSUTIL RESTORE steps. CA Ideal and DDOL must be completely quiesced (including batch CA Ideal runs) before attempting the full system restore.

The following is sample JCL for restoring a CA Ideal VLS file:

z/OS

//IDDVW          EXEC PGM=VLSUTIL     
//STEPLIB  DD   DSN=CA IPC.LOAD,DISP=SHR     
//SYSPRINT DD   SYSOUT=*     
//AUXPRINT DD   SYSOUT=*     
//VLSBKUP  DD   (backup of IDDVW file)     
//VLSFILE  DD   DSN=index.IDDVW,DISP=SHR     
FORMAT BLKSIZE=4000,NAMELEN=40     
RESTORE
LIBRARY

VSE

/*     
// PAUSE : PLEASE MOUNT “IDLBKP” TAPE ON UNIT=180     
// ASSGN SYS010,180     
// MTC REW,SYS010     
// DLBL IDLCL,'CA IPC.IDL.LOAD'   *** CORE ***     
// EXTENT ,IDL001     
// LIBDEF PHASE,SEARCH=IDLCL.IPC     
* *** BACKUP FOR 'NEW$OBJ' DSN=IDEAL.NEW$OBJ     
// ASSGN SYS004,DISK,VOL=IDL001,SHR     
// DLBL VLSFILE,'IDEAL.NEW$OBJ',,DA     
// EXTENT SYS004,IDL001     
// TLBL VLSBKUP,'NEW$OBJ',,IDLBKP,,1     
// UPSI 00000011     
// EXEC VLSUTIL,SIZE=(AUTO,48K)     
FORMAT BLKSIZE=4000,NAMELEN=24  
RESTORE     
LIBRARY     
/*