//JOB7     JOB  accounting information,REGION=nnnnK
//STEP1    EXEC PGM=ADRDSSU,PARM='UTILMSG=YES'
//SYSPRINT DD   SYSOUT=A
//DISK     DD   UNIT=3380,VOL=(PRIVATE,,,,SER=338001),DISP=SHR
//DISK2    DD   UNIT=3390,VOL=(PRIVATE,,,,SER=339001),DISP=SHR
//SYSIN    DD   *
 COPY DATASET(         -
   INCLUDE(**) )       /* INCLUDE ALL DATA SETS  */ -
   LOGINDDNAME(DISK)   /* INPUT VOLUME           */ -
   OUTDDNAME(DISK2)    /* OUTPUT VOLUME          */ -
   REBLOCK(**.USER1.**)
/*

Example 5 shows a data set copy operation in which all data sets on the 3380 source volume that is labeled 338001 are copied to the 3390 target volume that is labeled 339001. If data sets with the same name are on the target volume, they are not copied. The sequential and partitioned data sets that meet the filtering criteria that is specified in the REBLOCK keyword are reblocked on the target volume. The block size is selected by DFSMSdss, unless it is modified by the user reblock exit routine.