Sample JCL

The XCOPY command shown below selects all archive volumes that have not already been processed by XCOPY, and creates a second set of archive and backup data sets. The new backup data sets are stored in an ARCHVOL created in the secondary FILES allocated to the OFILES DD statement.

//COPYTAPE EXEC XCOPY
//XCOPY.FILES    DD  DSN=DISK.PRIMARY.FILES,DISP=SHR
//XCOPY.OFILES   DD  DSN=DISK.OFFSITE.FILES,DISP=SHR
//XCOPY.SYSPARMS DD  *
MERP1NAMDMS.MERGPRI1
MERP1TYP3480
MERC1NAMDMS.MERGCOP1
MERC1TYPDISK
//XCOPY.SYSIN    DD  *
SELECT DSN=(PROD1./,PROD3./)
SELECT DSN=SYSA./
SELECT DSN=PRODACCT.MASTER.LOADLIB
SELECT DSN=CHKPOINT.UPDATE.LIB

XCOPY FLAG,CHKFLAG,TDSN=(APP1.BKUP/,APP2.BKUP/)