Example 1C: full volume dump operation with CONCURRENT

//DSSJOB JOB     accounting information,REGION=nnnnK
//DUMPSTEP EXEC  PGM=ADRDSSU
//SYSPRINT DD    SYSOUT=*
//DASD     DD    UNIT=SYSDA,VOL=SER=(SSDASD),DISP=OLD
//TAPE     DD    UNIT=TAPE,VOL=SER=(TAPE01,TAPE02,TAPE03),LABEL=(1,SL),
//  DISP=(NEW,KEEP),DSN=USER.BACKUP
//SYSIN    DD    *
  DUMP FULL INDDNAME(DASD) OUTDDNAME(TAPE) -
            COMPRESS CONCURRENT
/*

This JCL does a DFSMSdss full-volume dump 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.