COMPAKTOR Examples

The following examples illustrate the most common ways of executing COMPAKTOR.

Important

For convenience, all STEPLIB/JOBLIB DD statements have been omitted in the examples; they may be required, depending on your installation's placement of COMPAKTOR.

All examples in this section are found in the JCL library installed with FDR. The member names are EX4023x.

MAP a single DASD volume using the DISK DD statement example

MAP a direct access volume using a DISK DD statement

//MAP      EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSSUMM  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DISK1    DD UNIT=SYSALLDA,VOL=SER=MYDISK,DISP=OLD
//SYSIN    DD *
 MAP
/*

MAP multiple DASD volumes with “VOL=” example

MAP one DASD volume.

//MAP      EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSSUMM  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
 MAP      VOL=(BM1800,BM23*)
/*

In addition to the SYSMAP output, the SYSSUMM DD shows a one-line summary of each volume processed.

CPK301I BMC Software Inc - COMPAKTOR VER. 6.1 COMBINED SUMMARY DATE 2020.088 TIME 13.52.16 PAGE 1

- NUMBER OF - >1 -- ALLOCATED --- ------- FREE -------  FRAG - EMPTY TRACKS IN - - VTOC - TIME  COMP
VOLSER DEVTYPE   CYLS   DSNS EXTS TRACKS  EXTS %AL TRACKS AREAS LARGEST INDEX  VSAM  PS PO SIZE %US (MIN) CODE
BM1800 3390-2   2226    41    0    403    42   1  32987    20   32736 0.006     0     28  0   14   6   .1  0
BM23C3 3390-27   32760  1399    0 404342  1400  82  87058     3   87039 0.000     0    385  0  119  24   .0  0
BM23C4 3390-27   32760     2    0    145     3   0 491255    2  490866 0.000     0   0  0  119   0   .0  0
BM23C5 3390-27   32760     2    0    145     3   0 491255     2  442919 0.026     0   0  0  119   0   .0  0
BM23C6 3390-27   32760     2    0    145     3   0 491255     2  442919 0.026     0   0  0  119   0   .0  0
*** END OF SUMMARY MAP *** 

MAP a single DASD volume from an FDR backup tape example

MAP a DASD volume dumped by FDR, from the backup tape.

//MAP      EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSSUMM  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TAPE1    DD UNIT=TAPE,VOL=SER=FDRDMP,DISP=OLD,
//        DSN=FDR.DUMP
//SYSIN    DD *
 MAP    FROMDD=TAPE1
/*


Important

COMPAKTOR can only map a full-volume backup tape. To map a data set or full backup, including VSAM information, use FDREPORT “PRINT DATATYPE=TVTOC” Working-with-FDREPORT or FDRABRP-Tape-VTOC-Report.

Simulate a COMPAKT on all volumes within an SMS storage group example

SIMULATE (SIM) a COMPAKT on all volumes within an SMS storage group.

//SIM    EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSSUMM  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
 SIMULATE TYPE=FASTCPK,STORGRP=DATADB
/*

Simulate a FASTCPK on selected online DASD volumes example

SIMULATE (SIM) Fast COMPAKTion on selected online DASD volumes. All online volumes whose serial begins with “TSO” or “PROD” are simulated, using all Fast COMPAKTOR defaults. Only summaries are printed.

//SIM      EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSSUMM  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
 SIMULATE TYPE=FASTCPK,VOL=(TSO*,PROD*),MAPS=SUMMARY,DSNENQ=USE
/*

Simulate a FASTCPK example

The default of SIZEKEEP=(100,90,60) is recommended for volumes with many multi-extent data sets or with an extremely large number of small data sets (especially 3390-9 and larger devices). This simulates the result of compacting.

//SIM      EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSSUM   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
 SIM      TYPE=FASTCPK,VOL=DB*,DSNENQ=USE,
          CPKFRAGI=2,CPKFREEX=20
  • To run these simulations for real, just change SIM to CPK.
  • Add LOG=YES to real COMPAKTions to display FDRW82 operator messages when COMPAKTOR begins and ends modifying each volume.
  • If you plan to run a real COMPAKTion immediately after a SIMULATE, be sure to add DSNENQ=USE to the simulation to get a more accurate report of what FASTCPK will do.

Example of combined summary report from simulation

CPK301I BMC Software Inc - COMPAKTOR VER. 6.1 COMBINED SUMMARY DATE 2020.055 TIME 11.08.56 PAGE 1

- NUMBER OF - >1 -- ALLOCATED --- ------- FREE -------  FRAG - EMPTY TRACKS IN - - VTOC - TIME  COMP
VOLSER DEVTYPE   CYLS   DSNS EXTS TRACKS  EXTS %AL TRACKS AREAS LARGEST INDEX  VSAM  PS PO SIZE %US (MIN) CODE
SH2512 3390-A   262668     13    4 42888    284   1   3.8M   247    2.8M 0.047     1   1796    222   29   3
  --AFTER-CPK-->      13    2 40968    258   1   3.8M     2    2.9M 0.039     1     56     42   29   3   .4     0

CPK RELEASED    1920 TRKS AND ELIMINATED   245 FREE SPACE AREAS FROM 1 VOLS WITH3940020 TRKS (  1% ALLOCATED)
*** END OF SUMMARY MAP ***


Before

After

Multi-Extent Data Sets

4

2

Free Areas

247

2

Estimated Elapsed Time

0.4 minutes

Space release and FASTCPK on multiple volumes example

The first step releases free space from all inactive PS, PO, and VSAM data sets. The second step does a FASTCPK on any of those volumes where there are more than 20 free space areas. Active data sets are not moved. This 2-step technique is slightly faster than doing a single-step FASTCPK including space release, since the FASTCPK step moves fewer tracks than the single-step job.

Tip

We recommend that space release and compaction always be done as a 2-step process.

//CPKRLSE  EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSSUMM  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
 COMPAKT  TYPE=RLSE,VOL=(TSO*,TEST*),
  PSRLSE=ALL,PORLSE=ALL,VSRLSE=ALL,NOSECOND=NORLSE
/*
//FASTCPK  EXEC PGM=FDRCPK,REGION=0M,COND=EVEN
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSSUMM  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
  COMPAKT  TYPE=FASTCPK,VOL=(TSO*,TEST*),
   CPKFREEX=20,LOG=YES,UNABLE=IGNORE
/*

FASTCPK of SMS STORGRP example

Perform a FASTCPK of all the volumes in the SMS STORGRP of QA1 and leave a maximum of 20 (CPKFREEX=20) free space areas on the volume after the compaction.

//FASTCPK  EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSSUMM  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
 COMPAKT  TYPE=FASTCPK,STORGRP=QA1,
     CPKFREEX=20,LOG=YES,UNABLE=IGNORE
/*

Tip

If processing multiple storage groups with lots of volumes in the storage groups, multiple jobs processing the different storage groups concurrently is recommended to process the volumes/storage groups quicker.

COMPAKT a DASD volume onto another DASD volume example

First, the DASD volume is dumped, and then restored onto the target volume. The volume serial of the target volume is changed to OLDDSK on completion of the COMPAKTion. At that time, the original volume should be VARYed offline, and the new volume should be MOUNTed. If the original volume had an indexed VTOC, it must be rebuilt on the new volume with ICKDSF.

//COMPAKT  EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TAPE1    DD DSN=FDR.DUMP.VOLDDSK,DISP=(,KEEP),
//    UNIT=TAPE,VOL=(,,,99)
//DISK1    DD UNIT=SYSALLDA,VOL=SER=OLDDSK,DISP=OLD
//NEWDISK1 DD UNIT=SYSALLDA,VOL=SER=NEWDSK,DISP=OLD
//SYSIN    DD *
 DUMP    TYPE=FDR,RTC=YES
 CPK    DUMP=YES,TODD=NEWDISK1,SIZEKEEP=0
/*

RELEASE space from selected online volumes example

All online volumes whose serial begins with “TSO” are released. COMPAKTOR attempts to release all excess tracks or cylinders from all PS, PO, and VSAM data sets, leaving 10% of the allocated space as free space in the final data sets. However, space is not released from data sets that do not have a secondary allocation quantity. VSAM clusters with “IPCS” in their name do not have space released. Space release is not done on active data sets.

//RELEASE  EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSSUMM  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
 COMPAKT  TYPE=RLSE,VOL=TSO*,
          PSRLSE=ALL,PORLSE=ALL,VSRLSE=ALL,
          %FREE=10,NOSECOND=NORLSE,UNABLE=IGNORE
 SELECT   DSN=**IPCS**,VSRLSE=NO
/*

RELEASE space from selected volumes that have more than 15 free space areas example

All online volumes whose serial number begins with “PRI93” are processed and have more than 15 free space areas. COMPAKTOR attempts to release all excess tracks or cylinders from all PO and VSAM data sets. Space is not released from data sets that do not have a secondary allocation quantity. Active data sets are not released. Additionally, if COMPAKTOR cannot improve a selected volume, the UNABLE=IGNORE operand is used to disable the U0888 abend from being issued.

//RELEASE  EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSSUMM  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
 COMPAKT  TYPE=RLSE,VOL=PRI93*,DSNENQ=USE,
  PORLSE=ALL,VSRLSE=ALL,CPKFREEX=15,
  NOSECOND=NORLSE,UNABLE=IGNORE
/*

Convert a 3390-3 to a 3390-2 volume with CPK, moving the VTOC to the beginning of the volume example

The VTOC index and the VVDS (if they exist) are placed adjacent to the VTOC. The volume serial of the output DASD is changed to that of the original volume, and the new volume is automatically placed offline at the end of the COMPAKTion. At that time, the original volume should be VARYed offline, and the new volume should be MOUNTed. If the original volume had an indexed VTOC, it must be rebuilt on the new volume with ICKDSF. This procedure works only if there are no unmovable data sets in the upper third of the 3390-3 and if the total allocated tracks do not exceed the capacity of the output 3390 data set.

//COMPAKT  EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//NEWDISK1 DD UNIT=SYSALLDA,DISP=OLD,
//   VOL=SER=D33902 <---3390-2 output
//TAPE1    DD DSN=BACKUP.D33903,DISP=(,CATLG),
//  UNIT=(TAPE,2),VOL=(,,,99)
//SYSIN    DD *
 DUMP     TYPE=FDR,DATA=USED
 CPK      DUMP=YES,TODD=NEWDISK1,VTOC=COMPAKT,
  SIZEKEEP=0,OVERRIDE=YES,SELTERR=NO,
  VOL=D33903 <---3390-3 input
 SELECT   ***VTOC,POS=BEGIN
 SELECT   DSN=SYS1.VTOCIX.**,POS=VTOC
 SELECT   DSN=SYS1.VVDS.**,POS=VTOC
/*

Expand the VTOC on a volume example

This can only be done if you COMPAKT a DASD from a backup; this example uses DUMP=YES to do so. If necessary, COMPAKTOR moves data sets in order to free space to expand the VTOC. The SIZE= operand on the SELECT statement specifies the new VTOC size in tracks. If you added the POS= operand you could also move the VTOC. The other SELECT statements move the VTOCIX and VVDS next to the VTOC.

//COMPAKT  EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TAPE1    DD DSN=BACKUP.D33901,DISP=(,CATLG),
//   UNIT=CART,VOL=(,,,99)
//SYSIN    DD *
 DUMP     TYPE=FDR,DATA=USED,DSNENQ=USE
 CPK    DUMP=YES,VOL=D33901,SIZEKEEP=0,VTOC=COMPAKT,
  OVERRIDE=YES
 SELECT   ***VTOC,SIZE=30
 SELECT   DSN=SYS1.VTOCIX.**,POS=VTOC
 SELECT   DSN=SYS1.VVDS.**,POS=VTOC
/*

Release unused space within PS and PO data sets on all volumes starting with “TSO” example

CPK does not COMPAKT the volumes, only release space. PS data sets with a group name of “TEST” are completely freed. All other data sets are left with 10% free space in the final data sets.

//RELEASE  EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
 CPK      TYPE=RLSE,VOL=TSO*,PSRLSE=ALL,PORLSE=ALL,%FREE=10
 SELECT   DSN=TEST**,DSORG=PS,RLSE=TRK
/*

Release all free space in selective data sets example

Release all free cylinders in data sets beginning with “A.B.C”, and reduce all data sets (including VSAM clusters) beginning with “C.D” to contain 20% free tracks in the final data sets, on all online volumes.

The RLSE= and VSRLSE= operands appear only on SELECT statements, and not on the CPK statement; this is the proper way to release space ONLY on selected data sets.

//RELEASE  EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
 CPK      TYPE=RLSE,VOL=*
 SELECT   DSN=A.B.C,RLSE=ALL
 SELECT   DSN=C.D.**,%FREE=20,RLSE=TRK,VSRLSE=ALL
/*

Release all the free space in a specific HFS file example

Release all the free space in a HFS file OMVS.ZOSAR1.JAVA on volume HFSZ01 that has not been used. FASTCPK only releases space down to the “high-water” mark of used blocks.

Important

You must dismount the HFS file before running CPK as HFS files are bypassed if the SYSDSN enqueue fails.

//RELEASE  EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
CPK       TYPE=RLSE,VOL=HFSZ01
SELECT    DSN=OMVS.ZOSAR1.JAVA,RLSE=TRK
/*

 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*