COPY DATASET FROM DISK TO DISK

//***** COPY DATASET
FROM A VOLUME TO ANOTHER VOLUME
//COPYDSA JOB CLASS=A,MSGCLASS=H
//COPY1 EXEC PGM=KBKARCS,REGION=4096K
//SYSPRINT DD SYSOUT=*
//FRDD DD VOL=SER=FR001,DISP=SHR,UNIT=SYSDA
//TODD DD VOL=SER=TO1234,DISP=SHR,UNIT=SYSDA
//SYSIN DD *
COPY DATASET(SAMPLE.DSET), –
FROM(DD(FRDD)),TO(DD(TODD))