Use UNLOAD and RELOAD to change compression
The compression routine is changed for segment SEGB, removed for segment SEGD, and added for segment SEGC. Minimizing the number of segments to be expanded and compressed will minimize I/O and improve job performance.
JCL to use UNLOAD and RELOAD to change compression
02 //STEPLIB DD DISP=SHR,DSN=BMC.PFP.LOAD
03 // DD DISP=SHR,DSN=IMSVS.DFSMDA
04 // DD DISP=SHR,DSN=IMSVS.RESLIB <-- DFSCMPX0
05 // DD DISP=SHR,DSN=BMC.DPK.LOAD <-- DPIFPRTN
06 //$$DPICDS DD DISP=SHR,DSN=PFP.DPK.DPICDS
07 //$$DPITBL DD DISP=SHR,DSN=PFP.DPK.DPITBL
08 //IMSACB DD DISP=SHR,DSN=IMSVS.ACBLIB ---> IMSACB DD is not required in a managed ACB environment instead the active directory is used to refer the current control blocks.
09 //NEWACB DD DISP=SHR,DSN=IMSVS.ACBLIB.NEW ---> NEWACB DD is not required in a managed ACB environment instead the staging directory is used to refer the new control blocks.
10 //PFPSAMP1 DD DISP=OLD,DSN=BMCPFP.PFPSAMP.PFPSAMP1
11 //PFPSAMP2 DD DISP=OLD,DSN=BMCPFP.PFPSAMP.PFPSAMP2
12 //PFPSAMP3 DD DISP=OLD,DSN=BMCPFP.PFPSAMP.PFPSAMP3
13 //OUTUNLD DD DISP=(,CATLG,DELETE),UNIT=DASD,SPACE=(CYL,(150,5),RLSE),
14 // DSN=PFP.PFPSAMP1.UNLOAD
15 //PFPSYSIN DD *
16 UNLOAD DBD=PFPSAMP,
17 IAREA=ALL,
18
EXPAND=(SEGB,SEGD),
19
SDEP_PROCESS=LOGICAL
20 OFILECTL OAREA=ALL,DDNAME=OUTUNLD
21 /*
22 //* *****************************************************************
23 //*
IDCAMS <--- area IDCAMS delete/define
24 //* *****************************************************************
25 //PFPRELD EXEC PGM=PFPMAIN,REGION=0M
26 //STEPLIB DD DISP=SHR,DSN=BMC.PFP.LOAD
27 // DD DISP=SHR,DSN=IMSVS.RESLIB
28 // DD DISP=SHR,DSN=IMSVS.DFSMDA
29 // DD DISP=SHR,DSN=BMC.DPK.LOAD
30 //$$DPICDS DD DISP=SHR,DSN=PFP.DPK.DPICDS
31 //$$DPITBL DD DISP=SHR,DSN=PFP.DPK.DPITBL
32 //IMSACB DD DISP=SHR,DSN=IMSVS.ACBLIB.NEW ---> In a managed ACB environment new control blocks is checked in the staging directory if not found, then the active directory is referred.
33 //IAREA001 DD DISP=OLD,DSN=PFP.PFPSAMP1.UNLOAD
34 //PFPSAMP1 DD DISP=OLD,DSN=BMCPFP.PFPSAMP.PFPSAMP1
35 //PFPSAMP2 DD DISP=OLD,DSN=BMCPFP.PFPSAMP.PFPSAMP2
36 //PFPSAMP3 DD DISP=OLD,DSN=BMCPFP.PFPSAMP.PFPSAMP3
37 //PFPSYSIN DD *
38 RELOAD DBD=PFPSAMP,
39 IAREA=PFPSAMP1,
40 OAREA=ALL,
41
COMPRESS=(SEGB,SEGC)
42
IC DSNAME='PFP.ICOPY.&DBD.&AREA(+1)',
43 UNIT=SYSDA,DISP=(NEW,CATLG),
44 SPACE=(CYL,150,5,RLSE)
/*
Line no. | Comments |
|---|---|
01-05 | EXEC and STEPLIB statements for Fast Path/EP offline execution. |
04 | Compression routines specified in NEWACB DD are used on output areas. |
05 | Compression routines specified in IMSACB DD are used on input areas. |
06-07 | DD statements that define data sets for the BMC AMI Data Packer for IMS product. These data sets are required because the segment data must be expanded in order to apply the new compression routines. |
08 10-12 | The DBD from the IMSACB DD statement is used for input areas. |
09, 13 | The DBD from the NEWACB DD statement is used for the output unload file. |
10-12 | Define input areas to be unloaded. |
13-14 | The unloaded data from all areas is written to one unload data set. |
15 | PFPSYSIN DD for Fast Path/EP control statements. |
16 | Defines DEBD name for UNLOAD processing. |
17 10-12 | IAREA specifies the input areas for the PFPSAMPx DD statements. All areas are specified since the compression changes affect all the SEGB, SEGC, and SEGD segments. |
18 | EXPAND keyword causes SEGB and SEGD statements to be expanded using the compression exit specified for the segment in the IMSACB. The compressed segments in the input are expanded with the compression routines (DPIFPRTN) specified in IMSACB data set. The two changed segments are: SEGM NAME=SEGB,BYTES=(100,20),PARENT=SEGA, COMPRTN=(DPIFPRTN,DATA,INIT) SEGM NAME=SEGD,BYTES=(100,20),PARENT=SEGB COMPRTN=(DPIFPRTN,DATA,INIT) |
19 | Because the DEDB contains SDEPs, SDEP processing must be specified. |
20 | One unload file is created. OAREA specifies the area names to be written to the OUTUNLD DD statement. |
21 | End of UNLOAD control card input. |
22-24 | Comment to indicate that the IDCAMS delete/define for the new areas to be reloaded must be performed. |
25-28 | EXEC and STEPLIB DD statements for Fast Path/EP offline execution. |
29-31 | DD statements that define data sets for the BMC AMI Data Packer for IMS product. These data sets are required because the compression routines were specified in the DBD for other segments. |
32 | The DBD from the IMSACB DD statement is used to define the areas being reloaded. |
33 | Identifies input data for reload. |
34-36 | Identify areas to be output by reload. |
37 | PFPSYSIN DD for Fast Path/EP control statements |
38 | Defines DEDB name for RELOAD processing. If you have a license for the Fast Path Analyzer/EP product, quick (checksum) pointer validation is performed on reloaded areas by default. |
39 | IAREA specifies the first area name that correlates to the IAREA001 DD statement, and uses the specified unload file. |
40 | OAREA specifies all areas to be reloaded. The randomizer is invoked for the reload and the data is reloaded to the correct areas. |
41 | Output areas are compressed using changed/added compression routines specified in the NEWACB data set:
SEGM NAME=SEGB,BYTES=(100,20),PARENT=SEGA, COMPRTN=(DFSCMPX0,DATA,INIT) SEGM NAME=SEGC,BYTES=(100,20),PARENT=SEGB, COMPRTN=(DFSCMPX0,DATA,INIT) SEGM NAME=SEGD,BYTES=(100,20),PARENT=SEGB Only the SEGB and SEGC segments are compressed. The compression routine for SEGB is changed, and compression is added for SEGC. No compression is needed for SEGD, since compression was removed. |
42-44 | An image copy is taken of the reloaded database areas. A new GDG image copy data set is cataloged to DASD. |