Preparing and Maintaining VLS Libraries in CA Ideal › Library Maintenance Under z/OS or VSE › Backing Up and Restoring a VLS Library

Backing Up and Restoring a VLS Library

The JCL step to add to the backup jobstream is shown as follows.

z/OS

//VLSBKUP  EXEC  PGM=VLSUTIL     
//STEPLIB  DD    DSN=CA IPC.LOAD,DISP=SHR     
//SYSPRINT DD    SYSOUT=*     
//AUXPRINT DD    SYSOUT=*     
//VLSFILE  DD    DSN=library.name,DISP=SHR     
//VLSBKUP  DD    DSN=backup.name,UNIT=TAPE,     
//               DISP=(NEW,CATLG),VOL=SER=xxxxxx     
//SYSUDUMP DD    SYSOUT=*     
//SYSIN    DD    *
BACKUP     
/*     
//

The JCL step added to the restore jobstream is shown as follows. The block size must match the block size as specified in the list of block size values.

//VLSREST  EXEC PGM=VLSUTIL     
//STEPLIB  DD  DSN=CA IPC.LOAD,DISP=SHR     
//SYSPRINT DD  SYSOUT=*     
//AUXPRINT DD  SYSOUT=*     
//VLSFILE  DD  DSN=library.name,DISP=SHR     
//VLSBKUP  DD  DSN=backup.name,UNIT=TAPE,DISP=OLD     
//SYSUDUMP DD  SYSOUT=*     
//SYSIN    DD  *     
FORMAT BLKSIZE=nnnn,NAMELEN=nn     
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,64K)     
LIBRARY     
BACKUP

Note: UPSI switch values are documented in the CA IPC VSE Implementation Guide.

// 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,64K)     
FORMAT BLKSIZE=nnnn,NAMELEN=nn     
RESTORE     
LIBRARY