Create a test database with a subset of data
JCL to create a test database with a subset of 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 //NEWACB DD DISP=SHR,DSN=IMSVS.ACBLIB ---> NEWACB DD is not required in a managed ACB environment instead the staging directory is used to refer the new control blocks.
07 //OUTUNLD DD DISP=(,CATLG,DELETE),
08 // DSN=PFP.PFPSAMP1.UNLOAD,
09 // UNIT=SYSDA,
10 // SPACE=(CYL,(125,5),RLSE)
11 //PFPSYSIN DD *
12 UNLOAD DBD=PFPSAMP,IAREA=ALL,
13
SDEP_PROCESS=LOGICAL,
14 ERROR_THRESHOLD=8,
15
INPUT_DSN_MASK='PFP.ICOPY.&DBD.&AREA(0)'
16 INCLUDE
SEGMENT=SEGA,SAMPLE_INTERVAL=5
17 INCLUDE SEGMENT=SEGE,SAMPLE_LIMIT=4
18 INCLUDE SEGMENT=SEGG,SAMPLE_INTERVAL=8,
19 SAMPLE_LIMIT=4
20 OFILECTL OAREA=ALL,DDNAME=OUTUNLD
21 /*
22 //*******************************************************************
23 //*
IDCAMS <--- area IDCAMS delete/defines
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 //IMSACB DD DISP=SHR,DSN=IMSVS.ACBLIB ---> In a managed ACB environment new control blocks is checked in the staging directory if not found, then the active directory is referred.
30 //IAREA001 DD DISP=SHR,DSN=PFP.PFPSAMP1.UNLOAD
31 //PFPSAMP1 DD DISP=OLD,DSN=BMCPFP.TEST.PFPSAMP.PFPSAMP1
32 //PFPSAMP2 DD DISP=OLD,DSN=BMCPFP.TEST.PFPSAMP.PFPSAMP2
33 //PFPSAMP3 DD DISP=OLD,DSN=BMCPFP.TEST.PFPSAMP.PFPSAMP3
34 //PFPSYSIN DD *
35 RELOAD DBD=PFPSAMP,
36 IAREA=PFPSAMP1,
37 OAREA=ALL
/*
Line no. | Comments |
|---|---|
01-04 | EXEC and STEPLIB DD statements for Fast Path/EP offline execution. |
05-06 | IMSACB and NEWACB DD statements use the same data set since there is no DBD change. |
07-10 | One unload file is created from all three area image copy inputs. |
11 | PFPSYSIN DD for Fast Path/EP control statements. |
12 | Defines DEDB name for UNLOAD processing. Data is unloaded from all areas (IAREA=ALL is default). |
13 | Because the DEDB contains SDEPs, SDEP processing must be specified. |
14 | When unloading the input image copy, the ERROR_THRESHOLD keyword allows for up to 8 segment pointer errors to be bypassed before the unload is terminated. Segments with pointer errors are not processed, and the UNLOAD process continues with the next segment. |
15 | The zero generation of the area image copy data sets will be dynamically allocated using the INPUT_DSN_MASK keyword for input to the UNLOAD command. |
16 | Limit the unload file by writing every fifth SEGA (root) segment and its dependent segments to the unload file (approximately 20% of database). |
17 | Further limit the unload file by writing out a maximum of four SEGE segments (and all dependents) for each selected SEGA segment. |
18-19 | Further limit the unload file by writing out every eighth SEGG segment, up to a maximum of 4 SEGG segments for each selected SEGA segment. |
20 | All areas are written to a single output file using the provided DD name. |
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 | The DBD from the IMSACB DD statement is used to define the areas being reloaded. |
30 | Identifies input unload file. |
31-33 | Identify output area data sets. |
34 | PFPSYSIN DD for Fast Path/EP control statements. |
35 | Defines the DEDB name to be reloaded. If you have a license for the Fast Path Analyzer/EP product, quick (checksum) pointer validation is performed on all areas by default. |
36 | IAREA specifies the first area name that correlates to the IAREA001 DD statement, and uses the specified unload file. |
37 | OAREA specifies that all areas are to be reloaded. |