COPY OF PROGRAM FILE

 

 

//*****PROGRAM COPY
//PROGCOPY JOB  CLASS=A,MSGCLASS=H
//COPY  EXEC PGM=JSECOPY,REGION=2048K
//SYSPRINT DD SYSOUT=*
//I1      DD DISP=SHR,DSN=PROGRAM.LOAD
//O1      DD DISP=SHR,DSN=PROGRAM.BACKUP
//SYSUT4  DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSUT3  DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSIN    DD *
C I=I1,O=O1