Friday, April 5, 2013

Compress a PDS/Dataset

This JCL will compress a PDS/Dataset.

//*******************************************      
//* COMPRESS A DATA SET USING IEBCOPY       *      
//*******************************************      
//STEP1 EXEC PGM=IEBCOPY                           
//SYSPRINT DD SYSOUT=*                             
//INPUT  DD DSNAME=<DSN_NAME>,DISP=SHR
//OUTPUT DD DSNAME=<DSN_NAME>,DISP=SHR <= SAME DSN AS IN INPUT DD
//SYSIN DD *                                       
COPY INDD=INPUT,OUTDD=OUTPUT                       
/*                                                 

Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)