Procedure FABPC
The FABPC 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.
You must supply the PSB for 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 RECORS
// IXKBLK=0, BLKSIZE OF IXKEY RECORS
// HISTORY='NULLFILE', HISTORY DATA SET
// USERLIB='USER.LOADLIB', USER RANDOMIZER
// ITKBLIB='ITKB.LOADLIB', ITKB LOAD LIBRARY
// TOSILIB='TOSI.SHKTLOAD', TOSI LOAD LIBRARY
// DBDLIB='IMSVS.DBDLIB', <<--------<
// PSBLIB='IMSVS.PSBLIB', <<--------<
// RESLIB='IMSVS.RESLIB', <<--------<
// DBTLIB='HPS.SHPSLMD0', <<--------<
// DBTSRC='HPS.SHPSSAMP(FABPVSAM)' <<--------<
//*-------------------------------------------------------------------*
//HDPCPRO 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,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
//*-------------------------------------------------------------------*
//* HISTORICAL ANALYSIS DATA SETS
//*-------------------------------------------------------------------*
//HISTORY DD DSN=&HISTORY,DISP=SHR
//*-------------------------------------------------------------------*
//* SORT RECORDS
//*-------------------------------------------------------------------*
//MERGIN01 DD DSN=&&MERGIN,DISP=(NEW,PASS,DELETE),
// UNIT=&U,SPACE=(CYL,(&CYL)),
// 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))
//*-------------------------------------------------------------------*
//* 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)
//*-------------------------------------------------------------------*
//* FOR EPS HEALING PROCESS *
//*-------------------------------------------------------------------*
//SORTIL01 DD DSN=&SORTIL,DISP=(NEW,PASS,DELETE),
// UNIT=&U,SPACE=(CYL,(&CYL))
//*-------------------------------------------------------------------*
//* FOR CHECK PROCESS
//*-------------------------------------------------------------------*
//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)),
// DCB=(BLKSIZE=&IXKBLK)
//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)
//*-------------------------------------------------------------------*