Procedure FABPPTA
The FABPPTA procedure runs HD Pointer Checker and HD Tuning Aid sequentially. The procedure includes control statements for the allocation of 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=, PSB NAME 00130000
// DBRC=Y, DBRC=Y IF HALDB PROCESS 00140000
// HDTA02P=, PARAM FOR STEP HDTA02 00150000
// U=SYSDA, UNIT FOR WORK DATA SETS 00160000
// CYL='1,1', SPACE FOR WORK DATA SETS 00170000
// SORT2=, SORT2='DUMMY,' IF NO SORTEX2 DATA SET 00180000
// MERG2=, MERG2='DUMMY,' IF NO MERGIN2 DATA SET 00190000
// SORTIL='&&SORTIL', DS NAME IF HALDB PROCESS 00200000
// SORTOL='&&SORTOL', DS NAME IF HALDB PROCESS 00220000
// PRTBLK=0, BLKSIZE OF PRINT DATA SETS 00224000
// PRTBLK2=0, BLKSIZE OF FSESTAT DATA SET 00228000
// SORTBLK=0, BLKSIZE OF SORT RECORS 00230000
// IXKBLK=0, BLKSIZE OF IXKEY RECORS 00236000
// HISTORY='NULLFILE', HISTORY DATA SET 00240000
// USERLIB='USER.LOADLIB', USER RANDOMIZER 00270000
// DBDLIB='IMSVS.DBDLIB', <<--------< 00280000
// PSBLIB='IMSVS.PSBLIB', <<--------< 00290000
// RESLIB='IMSVS.RESLIB', <<--------< 00300000
// DBTLIB='HPS.SHPSLMD0', <<--------< 00310000
// DBTSRC='HPS.SHPSSAMP' <<--------< 00320000
//*-------------------------------------------------------------------* 00330000
//HDPCPRO EXEC PGM=DFSRRC00, 00340000
// PARM='DLI,FABPMAIN,&PSB,,,,,,,,,,,&DBRC,N' 00350000
//STEPLIB DD DSN=&DBTLIB,DISP=SHR 00360000
// DD DSN=&RESLIB,DISP=SHR 00370000
// DD DSN=&USERLIB,DISP=SHR 00380000
//*-------------------------------------------------------------------* 00390000
//* FOR IMS DATA SETS 00400000
//*-------------------------------------------------------------------* 00410000
//IMS DD DSN=&PSBLIB,DISP=SHR 00420000
// DD DSN=&DBDLIB,DISP=SHR 00430000
//IMS2 DD DSN=&RESLIB,DISP=SHR 00440000
// DD DSN=&USERLIB,DISP=SHR 00450000
//DFSRESLB DD DSN=&RESLIB,DISP=SHR 00460000
//DFSVSAMP DD DSN=&DBTSRC(FABPVSAM),DISP=SHR 00470000
//IEFRDER DD DUMMY 00480000//*-------------------------------------------------------------------* 00500000
//* REPORTS 00510000
//*-------------------------------------------------------------------* 00520000
//PRIMAPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00530000
//STATIPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00540000
//VALIDPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00550000
//EVALUPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00560000
//EVALIPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00570000
//SNAPPIT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00580000
//SUMMARY DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00590000
//SYSUDUMP DD SYSOUT=A 00610000
//*-------------------------------------------------------------------* 00620000
//* HISTORICAL ANALYSIS DATA SETS 00630000
//*-------------------------------------------------------------------* 00640000
//HISTORY DD DSN=&HISTORY,DISP=SHR 00650000
//*-------------------------------------------------------------------* 00660000
//* SORT RECORDS 00670000
//*-------------------------------------------------------------------* 00680000
//MERGIN01 DD DSN=&&MERGIN,DISP=(NEW,PASS,DELETE), 00780000
// UNIT=&U,SPACE=(CYL,(&CYL)), 00790000
// DCB=(BLKSIZE=&SORTBLK) 00800000
//*-------------------------------------------------------------------* 00840000
//* SPECIFY SORTEX2 AND MERGIN2 FOR SCAN WITH IXKEYCHK = YES 00850000
//*-------------------------------------------------------------------* 00860000
//SORTE201 DD &SORT2.DSN=&&SORTEX2,DISP=(NEW,PASS,DELETE), 00870000
// UNIT=&U,SPACE=(CYL,(&CYL)) 00880000
//MERGI201 DD &MERG2.DSN=&&MERGIN2,DISP=(NEW,PASS,DELETE), 00900000
// UNIT=&U,SPACE=(CYL,(&CYL)) 00910000
//*-------------------------------------------------------------------* 00930000
//* FOR SCAN WITH HDAM/HIDAM PROCESS 00940000
//*-------------------------------------------------------------------* 00950000
//KEYSIN DD DSN=&&KEYSIN,DISP=(NEW,PASS,DELETE), 00960000
// UNIT=&U,SPACE=(CYL,(&CYL)), 00970000
// DCB=(RECFM=VB) 00980000
//*-------------------------------------------------------------------* 01010000
//* FOR EPS HEALING PROCESS * 01020000
//*-------------------------------------------------------------------* 01030000
//SORTIL01 DD DSN=&SORTIL,DISP=(NEW,PASS,DELETE), 01040000
// UNIT=&U,SPACE=(CYL,(&CYL)) 01050000
//*-------------------------------------------------------------------* 01190000
//* FOR CHECK PROCESS 01200000
//*-------------------------------------------------------------------* 01210000
//SORTOL DD DSN=&SORTOL,DISP=(NEW,DELETE,DELETE), 01220000
// UNIT=&U,SPACE=(CYL,(&CYL)) 01240000
//IXKEY DD DSN=&&IXKEY,DISP=(NEW,DELETE,DELETE), 01260000
// UNIT=&U,SPACE=(CYL,(&CYL)), 01280000
// DCB=(BLKSIZE=&IXKBLK) 01285000
//FSESTAT DD DSN=&&FSESTAT,DISP=(NEW,DELETE,DELETE), 01290000
// UNIT=&U,SPACE=(CYL,(2,2)),DCB=BLKSIZE=&PRTBLK2 01295000//*-------------------------------------------------------------------* 01300000
//* FOR CHECK AND BLKMAP PROCESS 01310000
//*-------------------------------------------------------------------* 01320000
//JRM DD DSN=&&JRM,DISP=(NEW,DELETE,DELETE), 01330000
// UNIT=&U,SPACE=(CYL,(&CYL)), 01340000
// DCB=(BLKSIZE=&SORTBLK) 01350000
//*-------------------------------------------------------------------* 01360000
//HDTA01 EXEC PGM=DFSRRC00, 01370000
// PARM='DLI,FABTROOT,&PSB,,,,,,,,,,,&DBRC,N', 01380000
// REGION=1000K,TIME=(,30) 01390000
//STEPLIB DD DSN=&DBTLIB,DISP=SHR 01400000
// DD DSN=&RESLIB,DISP=SHR 01410000
//IMS DD DSN=&DBDLIB,DISP=SHR 01420000
// DD DSN=&PSBLIB,DISP=SHR 01430000
//IMS2 DD DSN=&RESLIB,DISP=SHR 01440000
// DD DSN=&USERLIB,DISP=SHR 01450000
//IEFRDER DD DUMMY,DCB=BLKSIZE=1408 01460000
//DFSRESLB DD DSN=&RESLIB,DISP=SHR 01470000
//DFSVSAMP DD DSN=&DBTSRC(FABPVSAM),DISP=SHR 01480000
//RAPSIN DD DSN=&&RAPSIN,UNIT=&U, 01490000
// DISP=(NEW,PASS,DELETE), 01500000
// SPACE=(CYL,(&CYL)), 01510000
// DCB=(LRECL=42,RECFM=FB) 01520000
//PR8 DD SYSOUT=A 01530000
//PR10 DD SYSOUT=A 01540000
//KEYSIN DD DSN=&&KEYSIN,DISP=(OLD,DELETE,DELETE) 01550000
//SYSUDUMP DD SYSOUT=A 01560000
//*-------------------------------------------------------------------* 01570000
//HDTA02 EXEC PGM=SORT,PARM='&HDTA02P',COND=((2,LT,HDPCPRO), 01580000
// (0,LT,HDTA01)) 01590000
//SORTIN DD DSN=&&RAPSIN,DISP=(OLD,DELETE,DELETE) 01600000
//SORTOUT DD DSN=&&KEYSOUT,UNIT=&U, 01610000
// DISP=(NEW,PASS,DELETE), 01620000
// SPACE=(CYL,(&CYL)), 01630000
// DCB=(LRECL=42,RECFM=FB) 01640000
//SORTWK01 DD UNIT=&U,SPACE=(CYL,(&CYL)) 01650000
//SORTWK02 DD UNIT=&U,SPACE=(CYL,(&CYL)) 01660000
//SORTWK03 DD UNIT=&U,SPACE=(CYL,(&CYL)) 01670000
//SORTWK04 DD UNIT=&U,SPACE=(CYL,(&CYL)) 01680000
//SORTWK05 DD UNIT=&U,SPACE=(CYL,(&CYL)) 01690000
//SORTWK06 DD UNIT=&U,SPACE=(CYL,(&CYL)) 01700000
//SYSOUT DD SYSOUT=A 01710000
//SYSIN DD DSN=&DBTSRC(FABPSORT),DISP=SHR 01720000
//*-------------------------------------------------------------------* 01730000
//HDTA03 EXEC PGM=FABTRAPS,COND=((2,LT,HDPCPRO),(0,LT,HDTA01), 01740000
// (0,LT,HDTA02)) 01750000
//STEPLIB DD DSN=&DBTLIB,DISP=SHR 01760000
//PR9 DD SYSOUT=A 01770000
//PR9X DD SYSOUT=A 01780000
//KEYSOUT DD DSN=&&KEYSOUT,DISP=(OLD,DELETE,DELETE) 01790000
//SYSUDUMP DD SYSOUT=A 01800000
//*-------------------------------------------------------------------* 01810000