CA Global SubSystem › Restore an ISET

Restore an ISET

To restore an ISET, use the IDCAMS REPRO function in the following sample JCL procedure:

//REPRO    EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INPUT1   DD DSN=CAI.BACKUP.IMOD1,
//            UNIT=TAPE,VOL=SER=BACK01,
//            DISP=OLD,LABEL=1
//IMOD1    DD DSN=CAI.IMOD1,DISP=OLD
//SYSIN    DD *
  REPRO IFILE(INPUT1) OFILE(IMOD1) REUSE
//