Using IEBCOPY to compress a Data Set

Here’s an example of a IEBCOPY job to compress a data set:


//COMPRESS JOB (),'RMF',NOTIFY=&SYSUID,CLASS=A,MSGLEVEL=(1,1),
// MSGCLASS=X
//*******************************************
//*
//* COMPRESS A DATA SET USING IEBCOPY
//*
//*******************************************
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//INPUT DD DSNAME=SYS1.EXAMPLE.FILE,DISP=SHR
//OUTPUT DD DSNAME=SYS1.EXAMPLE.FILE,DISP=SHR
//SYSIN DD *
COPY INDD=INPUT,OUTDD=OUTPUT
/*

Note that we are using the same dataset for INPUT and OUTPUT.