Example 2: A Tracks Copy with Track Relocation

The following example shows a tracks copy operation in which the contents of cylinder 1, tracks 0 through 14, on source volume 338000 are copied to cylinder 3, tracks 0 through 14, on target volume 338001. The operation stops if a permanent error occurs on the source volume (CANCELERROR). The data written to the target volume is to be verified (WRITECHECK).

//JOB2     JOB  accounting information,REGION=nnnnK
//STEP1    EXEC PGM=ADRDSSU
//SYSPRINT DD   SYSOUT=A
//SYSIN    DD   *
 COPY TRACKS(1,0,1,14) /* SOURCE TRACKS  */ -
   OUTTRACKS(3,0)      /* TARGET TRACKS  */ -
   INDYNAM(338000)     /* ALLOC VOL 338000 DYNAMICALLY  */ -
   OUTDYNAM(338001)    /* ALLOC VOL 338001 DYNAMICALLY  */ -
   CANCELERROR         /* STOP ON INPUT ERROR      */ -
   WRITECHECK          /* VERIFY DATA WRITTEN TO OUT VOL */
/*