To copy an entire PDS to another PDS

//RQRIJOJB JOB (RQRIJOJ,SAMPLE),'RIJO JOSEPH',
// CLASS=A,MSGCLASS=Z,REGION=0M,NOTIFY=&SYSUID
//*
//STEP1 EXEC PGM=IEBCOPY
//**********************************************************
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=XXXX.JCLTEST.RIJO.JCLS,DISP=SHR
//SYSUT2 DD DSN=XXXX.JCLTEST.RIJO.JCLS.BKUP,
// DISP=(NEW,CATLG,DELETE),
// UNIT=TESTDA,
// SPACE=(CYL,(10,10,40)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSIN DD *
COPY INDD=SYSUT1,OUTDD=SYSUT2
/*