Example 6: logical dump operation with CONCURRENT

//JOB6     JOB   accounting information,REGION=nnnnK
//DUMPSTEP EXEC  PGM=ADRDSSU
//SYSPRINT DD    SYSOUT=*
//TAPE     DD    UNIT=TAPE,VOL=SER=(TAPE01,TAPE02,TAPE03),LABEL=(1,SL),
//  DISP=(NEW,KEEP),DSN=USER.BACKUP
//SYSIN    DD    *
  DUMP DATASET(INCLUDE(USER.LOG,USER.TABLE,USER.XREF)) -
       OUTDDNAME(TAPE) OPTIMIZE(4) CONCURRENT
/*

This JCL does a DFSMSdss logical data set dump of three fully qualified data sets using concurrent copy. This job continues with a warning message if concurrent copy initialization fails. No special action is required to perform a restore operation after a concurrent copy dump operation.