Procedure FABPPD
The FABPPD procedure corresponds to FABPP. Both procedures check pointers; FABPPD, though, provides for dynamic PSB generation and allocation of dynamic sort work data set.
The DBD parameter of the FABPPD procedure is not required.
//******************************************************************** 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 DBD=, DBDNAME 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
// PRTBLK=0, BLKSIZE OF PRINT DATA SETS 00210000
// PRTBLK2=0, BLKSIZE OF FSESTAT DATA SET 00220000
// SORTBLK=0, BLKSIZE OF SORT RECORS 00230000
// HISTORY='NULLFILE', HISTORY DATA SET 00240000
// USERLIB='USER.LOADLIB', USER RANDOMIZER 00250000
// DBDLIB='IMSVS.DBDLIB', <<--------< 00260000
// RESLIB='IMSVS.RESLIB', <<--------< 00270000
// DBTLIB='HPS.SHPSLMD0', <<--------< 00280000
// DBTSRC='HPS.SHPSSAMP(FABPVSAM)' <<--------< 00290000
//*-------------------------------------------------------------------* 00300000
//HDPCPRO EXEC PGM=DFSRRC00, 00310000
// PARM='ULU,FABPMAIN,&DBD,,,,,,,,,,,&DBRC,N' 00320000
//STEPLIB DD DSN=&DBTLIB,DISP=SHR 00330000
// DD DSN=&RESLIB,DISP=SHR 00340000
// DD DSN=&USERLIB,DISP=SHR 00350000
//*-------------------------------------------------------------------* 00360000
//* FOR IMS DATA SETS 00370000
//*-------------------------------------------------------------------* 00380000
//IMS DD DSN=&DBDLIB,DISP=SHR 00390000
//IMS2 DD DSN=&RESLIB,DISP=SHR 00400000
// DD DSN=&USERLIB,DISP=SHR 00410000
//DFSRESLB DD DSN=&RESLIB,DISP=SHR 00420000
//DFSVSAMP DD DSN=&DBTSRC,DISP=SHR 00430000
//IEFRDER DD DUMMY 00440000//*-------------------------------------------------------------------* 00460000
//* REPORTS 00470000
//*-------------------------------------------------------------------* 00480000
//PRIMAPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00490000
//STATIPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00500000
//VALIDPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00510000
//EVALUPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00512000
//EVALIPRT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00515000
//SNAPPIT DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00540000
//SUMMARY DD SYSOUT=A,DCB=BLKSIZE=&PRTBLK,OUTLIM=0 00550000
//SYSUDUMP DD SYSOUT=A 00570000
//*-------------------------------------------------------------------* 00580000
//* HISTORICAL ANALYSIS DATA SETS 00590000
//*-------------------------------------------------------------------* 00600000
//HISTORY DD DSN=&HISTORY,DISP=SHR 00610000
//*-------------------------------------------------------------------* 00620000
//* FOR SCAN WITH HDAM/HIDAM PROCESS 00630000
//*-------------------------------------------------------------------* 00640000
//KEYSIN DD DSN=&KEYS,DISP=(NEW,CATLG,DELETE), 00650000
// UNIT=&KEYSU,SPACE=(CYL,(&KEYSCYL)),VOL=SER=&KEYSVOL, 00660000
// DCB=(RECFM=VB) 00670000
//*-------------------------------------------------------------------* 00675000
//* FOR CHECK PROCESS 00680000
//*-------------------------------------------------------------------* 00685000
//FSESTAT DD DSN=&&FSESTAT,DISP=(NEW,DELETE,DELETE), 00690000
// UNIT=&U,SPACE=(CYL,(2,2)),DCB=BLKSIZE=&PRTBLK2 00695000
//*-------------------------------------------------------------------* 00700000
//* FOR CHECK AND BLKMAP PROCESS 00710000
//*-------------------------------------------------------------------* 00720000
//JRM DD DSN=&&JRM,DISP=(NEW,DELETE,DELETE), 00730000
// UNIT=&U,SPACE=(CYL,(&CYL)), 00740000
// DCB=(BLKSIZE=&SORTBLK) 00750000
//*-------------------------------------------------------------------* 00760000