Procedure FABPCD
The FABPCD 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 IMS Tools Online System Interface. This procedure generates a PSB dynamically and allocates the sort work data set dynamically.
The DBD parameter of the FABPCD procedure is not required.
//********************************************************************
//* 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 DBD=, DBDNAME
// 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
// PRTBLK=0, BLKSIZE OF PRINT DATA SETS
// PRTBLK2=0, BLKSIZE OF FSESTAT DATA SET
// SORTBLK=0, BLKSIZE OF SORT 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', <<--------<
// RESLIB='IMSVS.RESLIB', <<--------<
// DBTLIB='HPS.SHPSLMD0', <<--------<
// DBTSRC='HPS.SHPSSAMP(FABPVSAM)' <<--------<
//*-------------------------------------------------------------------*
//HDPCPRO EXEC PGM=FABPPC00,
// PARM='ULU,FABPMAIN,&DBD,,,,,,,,,,,&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=&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
//*-------------------------------------------------------------------*
//* 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 CHECK PROCESS
//*-------------------------------------------------------------------*
//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)
//*-------------------------------------------------------------------*