…we have been executing this SMFDUMP program since the last
century…most of the time the *OUT datasets are created successfully, but
occasionally, we have an *OUT dataset allocated and then left empty
which causes a downstream job to abend…
…how might we prevent the creation of an empty *OUT dataset?
…thankyou…
//SMFCPU1 PROC
//SMFCPU1 EXEC PGM=SMFDUMP,REGION=8M
//NOPLD DD DUMMY /* OVERRIDE PROSMS DASD ALLOCATION RULES */
//********************************************************************
//* BECAUSE THE PROGRAM OPENS/CLOSES DUMPOUT TWICE, MUST BE MOD!!
//* THIS IS SMF DUMP FOR CPU1.
//* ENQUEUE DATA SET EXISTS TO PREVENT THIS PUPPY FROM EXECUTING
//* WHILE THE SMFISMF SWITCH JOB EXECUTES AND VICE VERSA.
//********************************************************************
//ENQUEUE DD DSN=SMF.MANXY.DUMP.ENQUEUE.CPU1,DISP=OLD
//DUMPIN DD DSN=SYS1.MAN1,
// DISP=SHR,AMP=('BUFSP=163840')
//DUMPOUT DD DSN=SMF.MANXY.DUMP.CPU1(+1),DISP=(MOD,CATLG),
// UNIT=DISK,VOL=SER=NSCSMF,SPACE=(CYL,(350,50)),
// DCB=(MODEL.DSCB,DSORG=PS,RECFM=VBS,LRECL=X,BLKSIZE=27998)
//DUMPT15 DD DSN=SMF.MANXY.DUMP.TYPE15.CPU1(+1),DISP=(MOD,CATLG),
// UNIT=DISK,VOL=SER=NSCSMF,SPACE=(CYL,(50,5)),
// DCB=(MODEL.DSCB,DSORG=PS,RECFM=VBS,LRECL=X,BLKSIZE=27998)
//DUMP201 DD DSN=SMF.MANXY.DUMP.TYPE201.CPU1(+1),DISP=(MOD,CATLG),
// UNIT=DISK,VOL=SER=NSCSMF,SPACE=(CYL,(50,5)),
// DCB=(MODEL.DSCB,DSORG=PS,RECFM=VBS,LRECL=X,BLKSIZE=27998)
//SYSPRINT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//SYSIN DD DSN=BDC2.PARMLIB(SMFDPARM),DISP=SHR
****SMFDPARM contains the following
INDD(DUMPIN,OPTIONS(ALL))
OUTDD(DUMPOUT,TYPE(000:255))
OUTDD(DUMPT15,TYPE(15))
OUTDD(DUMP201,TYPE(201))
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
