Setting site default values for HD Pointer Checker

To set site default values for HD Pointer Checker, you run the HDPC Site Default Generation utility (FABPTGEN).

About this task

The following figure shows the process flow of how to use the PROCCTL site default table.

This figure shows the process flow of how to use the PROCCTL site default table. After the table is created, HD Pointer job is run by specifying the load module to the STEPLIB. — Figure 1. Process flow of PROCCTL site default table creation

Procedure

Prepare JCL for the HDPC Site Default Generation utility (FABPTGEN).
Sample JCL (Figure 2) that runs the FABPTGEN program is provided in the SHPSSAMP data set that is provided by the product. The member name is FABPDFL1. Use the sample or prepare similar JCL of your own.
For FABPTGEN JCL requirements, see FABPTGEN JCL.
In the PROCCTL data set, code the control statements for which you want to change its default value.
For a list of control statements that you can specify for the Site Default Generation utility, see FABPTGEN PROCCTL data set.
Run the HDPC Site Default Generation utility job step to create a source code of the PROCCTL site default table (FABPCTL0).
The FABPDFL1 sample JCL creates a source code and then assembles and link-edits the source code. Therefore, if you use FABPDFL1, you can omit Step 4.
Assemble and link the FABPCTL0 source code.
To create the site default table module FABPCTL0, assemble and link the SYSPUNCH that is generated by FABPTGEN.
For SYSIN of the assemble job step, specify the SYSPUNCH data set that is generated in the FABPTGEN. In the link-edit job step, it is recommended that you use AMODE=31, RMODE=ANY instead of the default AMODE=24, RMODE=24 by adding MODE=31 and RMDE=ANY to the EXEC statement PARM list.
Concatenate the load module library in which FABPCTL0 resides to the STEPLIB of HD Pointer Checker FABPMAIN JCL.
When FABPMAIN finds the name FABPCTL0 in the STEPLIB libraries, HD Pointer Checker loads it and uses it as the default value of the PROCCTL statement.
If you specify a value in the PROCCTL control statement in the HD Pointer Checker FABPMAIN JCL, you can override the site default value at run time.
The HD Pointer Checker PROCCTL site default table is available only when HD Pointer Checker runs as a stand-alone utility. It is not available when the HASH Check option is called in the IMS HP Image Copy job, the IMS Database Reorganization Expert job, the IMS Database Recovery Facility job, or the IMS Online Reorganization Facility job.
IMS HP Image Copy has its own site default table. To set the site default in the IMS HP Image Copy job, use the IMS HP Image Copy site default generation utility. For more information, see the IMS High Performance Image Copy User's Guide.

Example

The following figure shows the contents of FABPDFL1 for creating the FABPCTL0 source code and assembling and link-editing the source code.

Figure 2. JCL example for creating the site default table module FABPCTL0 (FABPDFL1) (Part 1 of 2)

//FABPDFL1 JOB ...........
//********************************************************************
//*   Licensed Materials - Property of IBM                           *
//*                                                                  *
//*   5655-U09                                                       *
//*                                                                  *
//*   Copyright IBM Corp. 2008 All Rights Reserved.                  *
//*                                                                  *
//*   US Government Users Restricted Rights - Use,                   *
//*   duplication or disclosure restricted by GSA ADP                *
//*   Schedule Contract with IBM Corp.                               *
//*                                                                  *
//********************************************************************
//* FABPDFL1:                                                        *
//*   HD Pointer Checker Site Default Generation Utility (PARM='GEN')*
//*   Sample JCL                                                     *
//*                                                                  *
//*   This is a sample JCL for running Site Default Generation       *
//*   Utility. It generates the site default table of HD Pointer     *
//*   Checker.                                                       *
//*                                                                  *
//*   This JCL consists of the following steps:                      *
//*     1) Generate the site default table source code               *
//*     2) Assemble the site default table                           *
//*     3) Link-Edit the site default table module                   *
//******************************************************************** 
//*
//*********************************************************************
//*  FABPTGEN - HDPC SITE DEFAULT GENARATION UTILITY                   
//*  ( PARM='GEN' SAMPLE PROCEDURE )                                   
//*********************************************************************
//HDPCTGEN PROC HLQ='HPS'                                              
//*--------------------------------------------------------------------
//*  CREATE SOURCE CODE OF SITE DEFAULT TABLE                          
//*--------------------------------------------------------------------
//G        EXEC PGM=FABPTGEN,PARM='GEN'                                
//STEPLIB  DD   DISP=SHR,DSN=&HLQ..SHPSLMD0                            
//SYSPUNCH DD   DISP=(NEW,PASS,DELETE),DSN=&&SOURCE,                   
//             DCB=(RECFM=FB,BLKSIZE=800),SPACE=(TRK,(1,1)),UNIT=SYSDA 
//SYSPRINT DD   SYSOUT=*                                               
//SYSUDUMP DD   DUMMY

Figure 3. JCL example for creating the site default table module FABPCTL0 (FABPDFL1) (Part 2 of 2)

//*--------------------------------------------------------------------
//*  ASSEMBLE & LINK ==> SITE DEFAULT TABLE MODULE (FABPCTL0)          
//*--------------------------------------------------------------------
//ASM      EXEC PGM=ASMA90,COND=(4,LT,G),                            
//             PARM='OBJECT,NODECK,LIST,XREF(SHORT)'                   
//SYSLIN   DD   DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)),           
//             DCB=(BLKSIZE=400),DSN=&&OBJECT                          
//SYSUT1   DD   DISP=(,DELETE),UNIT=SYSDA,SPACE=(CYL,(10,5))           
//SYSPUNCH DD   DUMMY                                                  
//SYSPRINT DD   SYSOUT=*                                               
//SYSIN    DD   DISP=(OLD,DELETE,DELETE),DSN=&&SOURCE                  
//*                                                                    
//L        EXEC PGM=IEWL,COND=(4,LT,ASM),REGION=4096K,                 
//             PARM='LIST,REFR,REUS,AMODE=31,RMODE=ANY'                
//SYSPRINT DD   SYSOUT=*                                               
//SYSLIN   DD   DISP=(OLD,DELETE,DELETE),DSN=&OBJECT                   
//*                                                                    
//         PEND                                                        
//*                                                                    
//*-------------------------------------------------------------------*
//*  FABPTGEN (PARM='GEN') - HDPC SITE DEFAULT GENARATION UTILITY     *
//*-------------------------------------------------------------------*
//GO       EXEC HDPCTGEN,HLQ=HPS                                       
//*-------------------------------------*                              
//* SPECIFY SITE DEFAULT VALUES         *                              
//*-------------------------------------*                              
//G.PROCCTL DD  *                                                      
 PROC TYPE=ALL                                                         
 OPTION HISTORY=YES                                                    
 REPORT COMPFACT=YES,SEGIO=YES                                         
 END                                                                   
/*                                                                     
//L.SYSLMOD DD  DISP=SHR,DSN=HPS.TABLELIB(FABPCTL0)                    
//*                                                                    
//