Example 1: A Data Set Move—Only Single Volume Data Sets

//JOB3     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 */ -
   BY(MULTI,=,NO))             /* FILTER ON SINGLE VOLUME        */ -
   INDYNAM (338000,338002)    /* ALLOC VOL 338000, 338002 DYNAMICALLY */ -
   OUTDYNAM(338001)          /* ALLOC VOL 338001 DYNAMICALLY   */ -
   DELETE
/*

Example 1 shows a data set copy operation in which all single-volume data sets with the first-level qualifier USER1 on the source volumes that are labeled 338000 and 338002 are copied to the target volume that is labeled 338001. All source data sets that are selected and successfully processed are deleted. The copied non-SMS, non-VSAM data sets are not cataloged.