COPY and Compress Data-Sets

//TRNG111C JOB CLASS=A,MSGLEVEL=(1,1),NOTIFY=TRNG111
//STEP1  EXEC PGM=IEBCOPY                            
//SYSPRINT DD SYSOUT=*                              
//ABC DD DSN=TRNG111.NEW.COBOL,DISP=SHR              
//XYZ DD DSN=TRNG111.NEW.COBOL,DISP=SHR              
//SYSIN DD *                                        
  COPY INDD=ABC,OUTDD=XYZ