2010年9月8日 星期三

SMF exits

  • USER1(name) - Exit routine receives control after each record is read by SMF dump program
  • USER2(name) - Exit routine receives control only when the dump program selects a record to be written
  • USER3(name) - Exit routine receives control after the output data set is closed by SMF dump program
  • IEFACTRT - SMF Job and Job Step Termination Exit
  • IEFU29 - SMF Dump Exit
  • IEFU83 - SMF Record Exit
  • IEFU84 - SMF Record Exit
  • IEFU85 - SMF Record Exit
  • JES2 EXIT 21 - SMF record
Sample:
//SMFEXTR EXEC PGM=IFASMFDP
//STEPLIB DD DISP=SHR,DSN=RA2002.V3R7M0.LINKLIB
//OUTDD DD DISP=SHR,DSN=XRZP001.IRRADU00.OUTDDNEW,
// DCB=(RECFM=VB,LRECL=12288)
//ADUPRINT DD SYSOUT=*
//SMFDATA1 DD DSN=XRZP001.SMF.ALS$1003,DISP=OLD
//SMFOUT DD DSN=&&SMFFILE,
// DISP=(,PASS),
// DCB=(RECFM=VBS,LRECL=32760,BLKSIZE=6240),
// UNIT=SYSDA,SPACE=(TRK,(1,1))
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
INDD(SMFDATA1,OPTIONS(DUMP))
ABEND(NORETRY)
OUTDD(SMFOUT,TYPE(80))
USER2(SMF$XT30)
USER3(SMF$XT31)

/*
//FLTPRINT DD SYSOUT=*
//FLTINPUT DD *
+INCLUDE COND=((0006,1,HX,EQ,50),AND,
((0001(0004,H38,H40,I1,0),1,HX,EQ,04),AND,
(0001(0004,H38,H40,I1,2),01,HX,EQ,80)),AND,
((0001(0004,H38,H40,I1,0),1,HX,EQ,01),AND,
(0001(0004,H38,H40,I1,2),00,CG,EQ,RA**)))
//

沒有留言:

張貼留言