The following is sample JCL for backing up one of the CA Ideal files:
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 LIBRARY BACKUP
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) LIBRARY BACKUP
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|