Utilities: Compress PDS when in use by others

You are editing a member of a partitioned dataset and when you try to save, get an E37 saying you can't save since there is NO SPACE left, and further allocations can't be made.

If the number of changes made is less, you can get out of the member by using cancel, compress the PDS and then go back and make the changes required. But if you have coded hundreds of lines, then what can you do ? Similarly the PDS might be accessed by others too (say the client), so you won't be able to compress it. What do you do ?


IEBCOPY can help you out. Just mention the same dataset in both I01 and O01:

//IEBCOPY1 EXEC PGM=IEBCOPY            
//SYSUT3    DD SPACE=(CYL,(1,1))      
//SYSUT4    DD SPACE=(CYL,(1,1))      
//SYSPRINT  DD SYSOUT=*                
//*                                    
//I01       DD DISP=SHR,DSN=DATASET.NAME
//O01       DD DISP=SHR,DSN=DATASET.NAME
//SYSIN     DD *                      
 COPY I=I01,O=O01                    
/*