Example 9: A Data Set Copy with CONCURRENT

//DSSJOB JOB  accounting information,REGION=nnnnK
//COPYSTEP EXEC PGM=ADRDSSU
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
  COPY DATASET(INCLUDE(USER.LOG,USER.TABLE,USER.XREF)) -
       OUTDYNAME(OVOL01,OVOL02,OVOL03,OVOL08) -
       ALLDATA(*) ALLEXCP CONCURRENT -
       STORCLAS(BACKUP) RENAMEUNCONDITIONAL(USERX)
/*

Example 9 shows the required JCL for DFSMSdss to perform a logical data set copy using the concurrent copy feature. This job continues (with a warning message) if concurrent copy initialization fails.