As Allan said, you can compress an in-use PDS using IEBCOPY.
//CMP EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(90))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(90))
//INDD0 DD DISP=SHR,DSN=&YOURPDS
//SYSIN DD *
C I=INDD0,O=INDD0
/*
You might have to adjust the SYSUT3/4 space.
Wendell
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
