//APKEN002 JOB ,'COPY DATASET',CLASS=C,MSGCLASS=S,MSGLEVEL=(1,1),
// REGION=4096K,TIME=1440,COND=((4,LT)),NOTIFY=&SYSUID
// !!! PLS DOUBLE CHECK AND REMARK THIS LINE TO SUBMIT
//* COPY DATASET
//STEP0010 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY DS(INCLUDE( -
IBMUSER.TEST* -
)) -
RENAMEU( -
(IBMUSER.TEST1, IBMUSER.TEST2) -
) -
SPHERE -
WAIT(0,0) -
SHR -
VOLCOUNT(ANY)
/*
//*
//* COPY DATASET WITH EXCLUDE
//STEP0020 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY DS(INCLUDE( -
IBMUSER.TEST* -
) -
EXCLUDE( -
IBMUSER.TEST2 -
)) -
RENAMEU( -
(IBMUSER.TEST1, IBMUSER.TEST3) -
) -
SPHERE -
WAIT(0,0) -
SHR -
VOLCOUNT(ANY)
/*
//*