//JOB6     JOB  accounting information,REGION=nnnnK
//STEP1    EXEC PGM=ADRDSSU
//SYSPRINT DD   SYSOUT=A
//SYSIN    DD   *
 COPY DATASET(         -
   INCLUDE(USER1.**))  /* FILTER ON DS W/1ST LEV Q USER1  */ -
   OUTDYNAM((338001),(338002),(338003)) /* DYNAM ALLOC VOLS */ -
   DELETE              -
   RENAMEU(USER2)      -
   RECATALOG(USERCAT2)
/*

Example 4 shows a data set copy operation. All the data sets with the high-level qualifier USER1 that are in the standard search order are copied to the target volumes that are labeled 338001, 338002, and 338003. The copied data sets are renamed to the high-level qualifier USER2, followed by the second through last qualifiers of the old names. If data sets with the same name as the new names are on the target volumes or if the data sets are already cataloged in USERCAT2, they are not copied. The copied, expired data sets are deleted from the source volumes, uncataloged, and recataloged in the USERCAT2 catalog . This process moves the data sets from one set of volumes to another set of volumes, from one catalog to another catalog, and renames them.