to copy the members in one PDS to another PDS using IEBCOPY.

//MYJOB JOB
//MYPROC PROC
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=KC03H09.$MARIST$.LIBRARY(AREA)
//SYSUT2 DD DISP=SHR,DSN=KC03H09.$MARI$.LIBRARY(MEM)
// PEND
//STEP1 EXEC MYPROC
//SYSIN DD *