Procedure FABPP
The FABPP procedure runs only HD Pointer Checker. FABPP includes control statements for allocating the work data sets.
You must supply the PSB for this procedure.
//******************************************************************** 00010000
//* Licensed Materials - Property of IBM * 00020000
//* * 00030000
//* 5655-U09 * 00040000
//* * 00050000
//* Copyright IBM Corporation 2000, 2008. All rights reserved. * 00060000
//* * 00070000
//* US Government Users Restricted Rights - Use, * 00080000
//* duplication or disclosure restricted by GSA ADP * 00090000
//* Schedule Contract with IBM Corp. * 00100000
//* * 00110000
//******************************************************************** 00120000
// PROC PSB=, PSBNAME 00130000
// DBRC=N, DBRC=Y IF HALDB PROCESS 00140000
// KEYS='NULLFILE', DS NAME IF GENERATE KEYSIN 00150000
// KEYSVOL=, VOL NAME OF KEYSIN 00160000
// KEYSU='SYSDA', UNIT FOR KEYSIN DATA SET 00170000
// KEYSCYL='1,1', SPACE FOR KEYSIN DATA SET 00180000
// U=SYSDA, UNIT FOR WORK DATA SETS 00190000
// CYL='1,1', SPACE FOR WORK DATA SETS 00200000
// SORT2=, SORT2='DUMMY,' IF NO SORTEX2 DATA SET 00210000
// MERG2=, MERG2='DUMMY,' IF NO MERGIN2 DATA SET 00220000
// SORTIL='&&SORTIL', DS NAME IF HALDB PROCESS 00230000
// SORTOL='&&SORTOL', DS NAME IF HALDB PROCESS 00240000
// PRTBLK=0, BLKSIZE OF PRINT DATA SETS 00250000
// PRTBLK2=0, BLKSIZE OF FSESTAT DATA SET 00260000
// SORTBLK=0, BLKSIZE OF SORT RECORS 00270000
// IXKBLK=0, BLKSIZE OF IXKEY RECORS 00280000
// HISTORY='NULLFILE', HISTORY DATA SET 00290000
// USERLIB='USER.LOADLIB', USER RANDOMIZER 00300000
// DBDLIB='IMSVS.DBDLIB', <<--------< 00310000
// PSBLIB='IMSVS.PSBLIB', <<--------< 00320000
// RESLIB='IMSVS.RESLIB', <<--------< 00330000
// DBTLIB='HPS.SHPSLMD0', <<--------< 00340000
// DBTSRC='HPS.SHPSSAMP(FABPVSAM)' <<--------< 00350000
//*-------------------------------------------------------------------* 00360000
//HDPCPRO EXEC PGM=DFSRRC00, 00370000
// PARM='DLI,FABPMAIN,&PSB,,,,,,,,,,,&DBRC,N' 00380000
//STEPLIB DD DSN=&DBTLIB,DISP=SHR 00390000
// DD DSN=&RESLIB,DISP=SHR 00400000
// DD DSN=&USERLIB,DISP=SHR 00410000
//*-------------------------------------------------------------------* 00420000
//* FOR IMS DATA SETS 00430000
//*-------------------------------------------------------------------* 00440000
//IMS DD DSN=&PSBLIB,DISP=SHR 00450000
// DD DSN=&DBDLIB,DISP=SHR 00460000
//IMS2 DD DSN=&RESLIB,DISP=SHR 00470000
// DD DSN=&USERLIB,DISP=SHR 00480000
//DFSRESLB DD DSN=&RESLIB,DISP=SHR 00490000
//DFSVSAMP DD DSN=&DBTSRC,DISP=SHR 00500000
//IEFRDER DD DUMMY 00510000//*-------------------------------------------------------------------* 00530000
//* REPORTS 00540000
//*-------------------------------------------------------------------* 00550000
//PRIMAPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00560000
//STATIPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00570000
//VALIDPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00580000
//EVALUPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00582000
//EVALIPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00585000
//SNAPPIT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00610000
//SUMMARY DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00620000
//SYSUDUMP DD SYSOUT=A 00640000
//*-------------------------------------------------------------------* 00650000
//* HISTORICAL ANALYSIS DATA SETS 00660000
//*-------------------------------------------------------------------* 00670000
//HISTORY DD DSN=&HISTORY,DISP=SHR 00680000
//*-------------------------------------------------------------------* 00690000
//* SORT RECORDS 00700000
//*-------------------------------------------------------------------* 00710000
//MERGIN01 DD DSN=&&MERGIN,DISP=(NEW,PASS,DELETE), 00810000
// UNIT=&U,SPACE=(CYL,(&CYL)), 00820000
// DCB=(BLKSIZE=&SORTBLK) 00840000
//*-------------------------------------------------------------------* 00870000
//* SPECIFY SORTEX2 AND MERGIN2 FOR SCAN WITH IXKEYCHK = YES 00880000
//*-------------------------------------------------------------------* 00890000
//SORTE201 DD &SORT2.DSN=&&SORTEX2,DISP=(NEW,PASS,DELETE), 00900000
// UNIT=&U,SPACE=(CYL,(&CYL)) 00910000
//MERGI201 DD &MERG2.DSN=&&MERGIN2,DISP=(NEW,PASS,DELETE), 00930000
// UNIT=&U,SPACE=(CYL,(&CYL)) 00940000
//*-------------------------------------------------------------------* 00960000
//* FOR SCAN WITH HDAM/HIDAM PROCESS 00970000
//*-------------------------------------------------------------------* 00980000
//KEYSIN DD DSN=&KEYS,DISP=(NEW,CATLG,DELETE), 00990000
// UNIT=&KEYSU,SPACE=(CYL,(&KEYSCYL)),VOL=SER=&KEYSVOL, 01000000
// DCB=(RECFM=VB) 01010000
//*-------------------------------------------------------------------* 01040000
//* FOR EPS HEALING PROCESS * 01050000
//*-------------------------------------------------------------------* 01060000
//SORTIL01 DD DSN=&SORTIL,DISP=(NEW,PASS,DELETE), 01070000
// UNIT=&U,SPACE=(CYL,(&CYL)) 01080000
//*-------------------------------------------------------------------* 01220000
//* FOR CHECK PROCESS 01230000
//*-------------------------------------------------------------------* 01240000
//SORTOL DD DSN=&SORTOL,DISP=(NEW,DELETE,DELETE), 01250000
// UNIT=&U,SPACE=(CYL,(&CYL)) 01270000
//IXKEY DD DSN=&&IXKEY,DISP=(NEW,DELETE,DELETE), 01290000
// UNIT=&U,SPACE=(CYL,(&CYL)), 01310000
// DCB=(BLKSIZE=&IXKBLK) 01315000
//FSESTAT DD DSN=&&FSESTAT,DISP=(NEW,DELETE,DELETE), 01320000
// UNIT=&U,SPACE=(CYL,(2,2)),DCB=BLKSIZE=&PRTBLK2 01325000
//*-------------------------------------------------------------------* 01330000
//* FOR CHECK AND BLKMAP PROCESS 01340000
//*-------------------------------------------------------------------* 01350000
//JRM DD DSN=&&JRM,DISP=(NEW,DELETE,DELETE), 01360000
// UNIT=&U,SPACE=(CYL,(&CYL)), 01370000
// DCB=(BLKSIZE=&SORTBLK) 01380000
//*-------------------------------------------------------------------* 01390000