Sample DPPSMF procedure
The following figure shows the sample statements from the BBSAMP member DPPSMFA for the IBM LOAD method. For the BMC AMI Load, see DPPSMFN.
//DPPSMFA PROC HIDP='HILVL.RUN.LIB', <-- UPDATE
// HIDB2=DSN1210, <-- VERIFY
// UNIT=SYSDA, <-- VERIFY
//* THE FOLLOWING IS FOR REPORTS FROM SMF
//* RPTHI SETS THE HIGH LEVEL QUALIFIER FOR THE DATASETS. THIS
//* PARAMETER SHOULD BE SET TO SAME VALUE IN DPRSMFA
// RPTHI=HILVL, <-- UPDATE
//* THE FOLLOWING CAN DISABLE SUM / LOAD
// SUMPGM=DPSUMLD,
// LOADPGM=DSNUTILB
//*
//*------------------------------------------------------------*
//* THIS PROC IS USED BY THE DPRSMF JOB TO SUMMARIZE AND LOAD *
//* THE SMF RECORDS IN TO THE DB2 TABLES. THE DPRSMF JOB HAS *
//* FOUR JCLS WHICH MAKES USE OF THIS PROC. ALL THE 4 JCLS *
//* CALLS THIS PROC WITH THEIR OWN SET OF INPUT AND OUTPUT *
//* FILES. *
//*------------------------------------------------------------*
//*------------------------------------------------------------*
//* BUILD DB2 LOAD CONTROL STATEMENTS, *
//* SUMMARIZE ACCOUNTING AND DDF ACCOUNTING RECORDS,*
//* PURGE OLD RECORDS *
//*------------------------------------------------------------*
//*
//STEP4 EXEC PGM=&SUMPGM,REGION=4096K DPSUMLD
//STEPLIB DD DISP=SHR,DSN=&HIDB2..SDSNLOAD
// DD DISP=SHR,DSN=&HIDB2..SDSNEXIT
// DD DISP=SHR,DSN=&HIDP..BBLINK
//DPSYSOUT DD SYSOUT=* PROGRAM MESSAGES
//SYSOUT DD SYSOUT=* SORT MESSAGE
//SORTMSG DD SYSOUT=* SORT MESSAGES
//SYSUDUMP DD SYSOUT=*
//DPSYSIN DD DUMMY CONTROL STATEMENTS
//DPLOAD DD UNIT=&UNIT,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//*
//DPREPAIR DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//*
//DB2LOAD IF RC < 8 THEN
//*
//*------------------------------------------------------------*
//* LOAD INTO DB2 TABLES *
//*------------------------------------------------------------*
//*
//STEP5 EXEC PGM=&LOADPGM,REGION=4096K DSNUTILB
//STEPLIB DD DSN=&HIDB2..SDSNLOAD,DISP=SHR
// DD DSN=&HIDB2..SDSNEXIT,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SORTMSG DD SYSOUT=* SORT MESSAGES
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SORTOUT DD UNIT=&UNIT,SPACE=(CYL,(10,2))
//SYSUT1 DD UNIT=&UNIT,SPACE=(CYL,(5,2))
//SYSIN DD DISP=(OLD,DELETE),DSN=*.STEP4.DPLOAD
//*
//*
//REPAIR IF RC < 8 THEN
//*
//*------------------------------------------------------------*
//* THE BELOW STEP REPAIRS THE TABLESPACES
//*------------------------------------------------------------*
//*
//STEP6 EXEC PGM=&LOADPGM,REGION=4096K
//STEPLIB DD DSN=&HIDB2..SDSNLOAD,DISP=SHR
// DD DSN=&HIDB2..SDSNEXIT,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//*SYSUDUMP DD SYSOUT=*
//SYSUT1 DD UNIT=&UNIT,SPACE=(CYL,(5,2))
//*
//SYSIN DD DISP=(OLD,DELETE),DSN=*.STEP4.DPREPAIR
//*
//DELETE IF RC < 8 THEN
//*
//*------------------------------------------------------------*
//* DELETE THE INTERMEDIATE FILES *
//*------------------------------------------------------------*
//*
//STEP7 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//*
//DELETE ENDIF
//*
//REPAIR ENDIF
//*
//DB2LOAD ENDIF
//*
// HIDB2=DSN1210, <-- VERIFY
// UNIT=SYSDA, <-- VERIFY
//* THE FOLLOWING IS FOR REPORTS FROM SMF
//* RPTHI SETS THE HIGH LEVEL QUALIFIER FOR THE DATASETS. THIS
//* PARAMETER SHOULD BE SET TO SAME VALUE IN DPRSMFA
// RPTHI=HILVL, <-- UPDATE
//* THE FOLLOWING CAN DISABLE SUM / LOAD
// SUMPGM=DPSUMLD,
// LOADPGM=DSNUTILB
//*
//*------------------------------------------------------------*
//* THIS PROC IS USED BY THE DPRSMF JOB TO SUMMARIZE AND LOAD *
//* THE SMF RECORDS IN TO THE DB2 TABLES. THE DPRSMF JOB HAS *
//* FOUR JCLS WHICH MAKES USE OF THIS PROC. ALL THE 4 JCLS *
//* CALLS THIS PROC WITH THEIR OWN SET OF INPUT AND OUTPUT *
//* FILES. *
//*------------------------------------------------------------*
//*------------------------------------------------------------*
//* BUILD DB2 LOAD CONTROL STATEMENTS, *
//* SUMMARIZE ACCOUNTING AND DDF ACCOUNTING RECORDS,*
//* PURGE OLD RECORDS *
//*------------------------------------------------------------*
//*
//STEP4 EXEC PGM=&SUMPGM,REGION=4096K DPSUMLD
//STEPLIB DD DISP=SHR,DSN=&HIDB2..SDSNLOAD
// DD DISP=SHR,DSN=&HIDB2..SDSNEXIT
// DD DISP=SHR,DSN=&HIDP..BBLINK
//DPSYSOUT DD SYSOUT=* PROGRAM MESSAGES
//SYSOUT DD SYSOUT=* SORT MESSAGE
//SORTMSG DD SYSOUT=* SORT MESSAGES
//SYSUDUMP DD SYSOUT=*
//DPSYSIN DD DUMMY CONTROL STATEMENTS
//DPLOAD DD UNIT=&UNIT,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//*
//DPREPAIR DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//*
//DB2LOAD IF RC < 8 THEN
//*
//*------------------------------------------------------------*
//* LOAD INTO DB2 TABLES *
//*------------------------------------------------------------*
//*
//STEP5 EXEC PGM=&LOADPGM,REGION=4096K DSNUTILB
//STEPLIB DD DSN=&HIDB2..SDSNLOAD,DISP=SHR
// DD DSN=&HIDB2..SDSNEXIT,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SORTMSG DD SYSOUT=* SORT MESSAGES
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SORTOUT DD UNIT=&UNIT,SPACE=(CYL,(10,2))
//SYSUT1 DD UNIT=&UNIT,SPACE=(CYL,(5,2))
//SYSIN DD DISP=(OLD,DELETE),DSN=*.STEP4.DPLOAD
//*
//*
//REPAIR IF RC < 8 THEN
//*
//*------------------------------------------------------------*
//* THE BELOW STEP REPAIRS THE TABLESPACES
//*------------------------------------------------------------*
//*
//STEP6 EXEC PGM=&LOADPGM,REGION=4096K
//STEPLIB DD DSN=&HIDB2..SDSNLOAD,DISP=SHR
// DD DSN=&HIDB2..SDSNEXIT,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//*SYSUDUMP DD SYSOUT=*
//SYSUT1 DD UNIT=&UNIT,SPACE=(CYL,(5,2))
//*
//SYSIN DD DISP=(OLD,DELETE),DSN=*.STEP4.DPREPAIR
//*
//DELETE IF RC < 8 THEN
//*
//*------------------------------------------------------------*
//* DELETE THE INTERMEDIATE FILES *
//*------------------------------------------------------------*
//*
//STEP7 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//*
//DELETE ENDIF
//*
//REPAIR ENDIF
//*
//DB2LOAD ENDIF
//*
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*