Generate a subset of area data
JCL to generate a subset of area data
02 //STEPLIB DD DISP=SHR,DSN=BMC.PFP.LOAD
03 // DD DISP=SHR,DSN=IMSVS.RESLIB
04 // DD DISP=SHR,DSN=IMSVS.DFSMDA
05 //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.
06 //PFPSYSIN DD *
07 EXTRACT DBD=PFPSAMP,
08
EXTRACT_FORMAT=HDUNLOAD
09
INCLUDE
SEGMENT=SEGA,SAMPLE_INTERVAL=5
10 INCLUDE SEGMENT=SEGE,SAMPLE_LIMIT=4
11 INCLUDE SEGMENT=SEGG,
12 SAMPLE_INTERVAL=8,SAMPLE_LIMIT=10
13
OFILECTL OAREA=ALL,
14 DSNAME='PFP.&DBD.UNLOAD',
15 DISP=(,CATLG,DELETE),
16 DATACLAS=dataclass
/*
Line no. | Comments |
|---|---|
01-04 | EXEC and STEPLIB statements for Fast Path/EP offline execution. |
05 | IMSACB DD statement used for database processing. |
06 | PFPSYSIN DD for Fast Path/EP control statements. |
07 | Defines DEDB name for EXTRACT process. Data is extracted from all areas (IAREA=ALL is default). The area statements are allocated from their dynamic allocation members in the IMSVS.DFSMDA data set in the STEPLIB concatenation. |
08 | Data is extracted in HDUNLOAD format, which is suitable for use as input to RELOAD. |
09 | Limit the selection by writing every fifth SEGA (root) segment and its dependent segments to the unload file. (approximately 20% of database). |
10 | Further limit the selection by writing out a maximum of four SEGE segments (and all dependents) for each selected SEGA segment. |
11-12 | Further limit the selection by writing out every eighth SEGG segment, up to a maximum of 10 SEGG segments for each selected SEGA segment. |
13-15 | All areas are written to a single output file using the provided data set name. |
16 | A data class is specified for this SMS-managed data set. |