COPY MEMBER OF PROGRAM FILE

//*****   PROG1,2,9 TO COPY BKUP
//CP0001 JOB CLASS=A,MSGCLASS=H
//COPY  EXEC PGM=JSECOPY,REGION=2048K
//SYSPRINT DD SYSOUT=*
//I1      DD DISP=SHR,DSN=PROG.FILE
//O1      DD DISP=SHR,DSN=PROG.FILE.BKUP
//SYSUT4  DD UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSUT3  DD UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSIN    DD *
C I=I1,O=O1
S M=(PROG1,PROG2,PROG9)