Example of Copying a PDS
//* COPY ONE PDS TO ANOTHER DO NOT REPLACE LIKE-NAMED MEMBERS
//LIBCOPY EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(3,3))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(3,3))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(3,3))
//INLIB DD DSN=library-containing-members,DISP=SHR
//OUTLIB DD DSN=library-to-put-members-in,DISP=SHR
//SYSIN DD *
COPY INDD=INLIB,OUTDD=OUTLIB
/*
//* OPTIONAL THINGS:
//*
//* TO COPY BUT EXCLUDE TWO MEMBERS:
//* COPY INDD=INLIB,OUTDD=OUTLIB
//* EXCLUDE MEMBER=(m1,m2)
//*
//* TO COPY AND REPLACE:
//* COPY INDD=((INLIB,R)),OUTDD=OUTLIB
//*iebcopy to copy a pds
//*in: pds
//*out: pds
//*copy only members named MEM1 and MEM2
//*do not replace those members if they exist in the output pds
//IEBCOPY EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY INDD=(INPDS),OUTDD=OUTPDS
SELECT MEMBER=MEM1
SELECT MEMBER=MEM2
/*
//*
//*
//*
//*iebcopy to copy a pds
//*in: pds
//*out: pds
//*copy only members named MEM1 and MEM2
//*replace those members if they exist in the output pds
//IEBCOPY EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY INDD=((INPDS,R)),OUTDD=OUTPDS
SELECT MEMBER=MEM1
SELECT MEMBER=MEM2
/*