Examples › PDS Compression Examples › Example 3—Select Empty PDSs and Reallocate

Example 3—Select Empty PDSs and Reallocate

Select from all WORK volumes only empty PDSs (that is, those having no members). Reallocate them using the minimum number of primary tracks or blocks that are necessary to store the original directory blocks.

//jobname JOB (acct,info),etc.
//         EXEC COMPRES
//SYSIN     DD  *

SCAN VOL=WRK/,THR=(0,16),EMPTY,CONVERT

With empty PDSs that have a directory larger than one track, you can recover even more space by additionally specifying the SHRINK parameter. This will cause those directories to be reduced to a single track, permitting the minimum possible primary allocation of one track.