Procedure FABPCM
The FABPCM procedure runs HD Pointer Checker and stores sensor data by using the Integrated DB Sensor function, or runs HD Pointer Checker and monitors the latest space utilization of VSAM data sets of IMS online full-function databases by using Space Monitor and the IMS Tools Online System Interface. This procedure checks pointers in multiple job steps.
You must supply the PSB for this procedure.
Restriction: EPSCHK=YES cannot be specified with this procedure.
//********************************************************************
//* Licensed Materials - Property of IBM *
//* *
//* 5655-U09 *
//* *
//* Copyright IBM Corporation 2011. All rights reserved. *
//* *
//* US Government Users Restricted Rights - Use, *
//* duplication or disclosure restricted by GSA ADP *
//* Schedule Contract with IBM Corp. *
//* *
//********************************************************************
// PROC PSB=, PSBNAME
// DBRC=N, DBRC=Y IF HALDB PROCESS
// KEYS='NULLFILE', DS NAME IF GENERATE KEYSIN
// KEYSVOL=, VOL NAME OF KEYSIN
// KEYSU='SYSDA', UNIT FOR KEYSIN DATA SET
// KEYSCYL='1,1', SPACE FOR KEYSIN DATA SET
// U=SYSDA, UNIT FOR WORK DATA SETS
// CYL='1,1', SPACE FOR WORK DATA SETS
// SORT2=, SORT2='DUMMY,' IF NO SORTEX2 DATA SET
// MERG2=, MERG2='DUMMY,' IF NO MERGIN2 DATA SET
// SORTIL='&&SORTIL', DS NAME IF HALDB PROCESS
// SORTOL='&&SORTOL', DS NAME IF HALDB PROCESS
// PRTBLK=0, BLKSIZE OF PRINT DATA SETS
// PRTBLK2=0, BLKSIZE OF FSESTAT DATA SET
// SORTBLK=0, BLKSIZE OF SORT RECORDS
// HISTORY='NULLFILE', HISTORY DATA SET
// USERLIB='USER.LOADLIB', USER RANDOMIZER ,
//* SEGMENT COMPACTION EXIT AND
//* INDEX MAINTENANCE EXIT
// ITKBLIB='ITKB.LOADLIB', ITKB LOAD LIBRARY
// TOSILIB='TOSI.SHKTLOAD', TOSI LOAD LIBRARY
// DBDLIB='IMSVS.DBDLIB', DBD LIBRARY
// PSBLIB='IMSVS.PSBLIB', PSB LIBRARY
// RESLIB='IMSVS.RESLIB',
// DBTLIB='HPS.SHPSLMD0', HPS LIBRARY
// DBTSRC='HPS.SHPSSAMP' BUFF PARM DATA SET //*********************************************************************
//* DB SCAN STEP
//*********************************************************************
//HDPCSCAN EXEC PGM=FABPPC00,
// PARM='DLI,FABPMAIN,&PSB,,,,,,,,,,,&DBRC,N'
//STEPLIB DD DSN=&DBTLIB,DISP=SHR
// DD DSN=&ITKBLIB,DISP=SHR
// DD DSN=&TOSILIB,DISP=SHR
// DD DSN=&RESLIB,DISP=SHR
// DD DSN=&USERLIB,DISP=SHR
//*-------------------------------------------------------------------*
//* FOR IMS DATA SETS
//*-------------------------------------------------------------------*
//IMS DD DSN=&PSBLIB,DISP=SHR
// DD DSN=&DBDLIB,DISP=SHR
//IMS2 DD DSN=&RESLIB,DISP=SHR
// DD DSN=&USERLIB,DISP=SHR
//DFSRESLB DD DSN=&RESLIB,DISP=SHR
//DFSVSAMP DD DSN=&DBTSRC(FABPVSAM),DISP=SHR
//IEFRDER DD DUMMY
//*-------------------------------------------------------------------*
//* REPORTS
//*-------------------------------------------------------------------*
//PRIMAPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//STATIPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//VALIDPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//EVALUPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//EVALIPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//SNAPPIT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//SUMMARY DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//SYSUDUMP DD SYSOUT=A
//*-------------------------------------------------------------------*
//* HISTORY ANALYSIS DATA SET
//*-------------------------------------------------------------------*
//HISTORY DD DSN=&HISTORY,DISP=SHR
//*-------------------------------------------------------------------*
//* SORT RECORDS
//*-------------------------------------------------------------------*
//SORTEX01 DD DSN=&&SORTEX,DISP=(NEW,PASS,DELETE),
// UNIT=&U,SPACE=(CYL,(&CYL)),
// DCB=(BLKSIZE=&SORTBLK)
//MERGIN01 DD DSN=&&MERGIN,DISP=(NEW,PASS,DELETE),
// UNIT=&U,SPACE=(CYL,(&CYL)), @PN04801
// DCB=(BLKSIZE=&SORTBLK)
//*-------------------------------------------------------------------*
//* SPECIFY SORTEX2 AND MERGIN2 FOR SCAN WITH IXKEYCHK = YES
//*-------------------------------------------------------------------*
//SORTE201 DD &SORT2.DSN=&&SORTEX2,DISP=(NEW,PASS,DELETE),
// UNIT=&U,SPACE=(CYL,(&CYL))
//MERGI201 DD &MERG2.DSN=&&MERGIN2,DISP=(NEW,PASS,DELETE),
// UNIT=&U,SPACE=(CYL,(&CYL))
//*-------------------------------------------------------------------*
//* SPECIFY SORTIL FOR SCAN WITH EPSCHK = YES
//*-------------------------------------------------------------------*
//SORTIL01 DD DSN=&SORTIL,DISP=(NEW,PASS,DELETE),
// UNIT=&U,SPACE=(CYL,(&CYL))
//*-------------------------------------------------------------------*
//* FOR SCAN WITH HDAM/HIDAM PROCESS
//*-------------------------------------------------------------------*
//KEYSIN DD DSN=&KEYS,DISP=(NEW,CATLG,DELETE),
// UNIT=&KEYSU,SPACE=(CYL,(&KEYSCYL)),VOL=SER=&KEYSVOL,
// DCB=(RECFM=VB) //*********************************************************************
//* CHECK STEP
//*********************************************************************
//HDPCCHK EXEC PGM=DFSRRC00,
// PARM='DLI,FABPMAIN,&PSB,,,,,,,,,,,&DBRC,N',
// COND=(4,LT,HDPCSCAN)
//STEPLIB DD DSN=&DBTLIB,DISP=SHR
// DD DSN=&RESLIB,DISP=SHR
// DD DSN=&USERLIB,DISP=SHR
//*-------------------------------------------------------------------*
//* FOR IMS DATA SETS
//*-------------------------------------------------------------------*
//IMS DD DSN=&PSBLIB,DISP=SHR
// DD DSN=&DBDLIB,DISP=SHR
//IMS2 DD DSN=&RESLIB,DISP=SHR
// DD DSN=&USERLIB,DISP=SHR
//DFSRESLB DD DSN=&RESLIB,DISP=SHR
//DFSVSAMP DD DSN=&DBTSRC(FABPVSAM),DISP=SHR
//IEFRDER DD DUMMY
//*-------------------------------------------------------------------*
//* REPORTS
//*-------------------------------------------------------------------*
//PRIMAPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//STATIPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//VALIDPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//EVALUPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//EVALIPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//SNAPPIT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//SUMMARY DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
//SYSUDUMP DD SYSOUT=A
//*-------------------------------------------------------------------*
//* HISTORY ANALYSIS DATA SET
//*-------------------------------------------------------------------*
//HISTORY DD DSN=&HISTORY,DISP=SHR
//*-------------------------------------------------------------------*
//* FOR CHECK PROCESS
//*-------------------------------------------------------------------*
//SORTEX01 DD DSN=&&SORTEX,DISP=(OLD,DELETE,DELETE)
//MERGIN01 DD DSN=&&MERGIN,DISP=(OLD,DELETE,DELETE)
//SORTE201 DD &SORT2.DSN=&&SORTEX2,DISP=(OLD,DELETE,DELETE)
//MERGI201 DD &MERG2.DSN=&&MERGIN2,DISP=(OLD,DELETE,DELETE)
//SORTIL01 DD DSN=&SORTIL,DISP=(OLD,DELETE,DELETE)
//SORTOL DD DSN=&SORTOL,DISP=(NEW,DELETE,DELETE),
// UNIT=&U,SPACE=(CYL,(&CYL))
//IXKEY DD DSN=&&IXKEY,DISP=(NEW,DELETE,DELETE),
// UNIT=&U,SPACE=(CYL,(&CYL))
//FSESTAT DD DSN=&&FSESTAT,DISP=(NEW,DELETE,DELETE),
// UNIT=&U,SPACE=(CYL,(2,2)),DCB=BLKSIZE=&PRTBLK2
//*-------------------------------------------------------------------*
//* FOR CHECK AND BLKMAP PROCESS
//*-------------------------------------------------------------------*
//JRM DD DSN=&&JRM,DISP=(NEW,DELETE,DELETE),
// UNIT=&U,SPACE=(CYL,(&CYL)),
// DCB=(BLKSIZE=&SORTBLK)