Esmie moo,
The SMF17 record is simple and straight forward as it does not have
variable sections or triplets. There are 2 time fields in the SMF layout
SMF17TME - Time since midnight, in hundredths of a second, when the record
was moved into the SMF buffer.
SMF17RST - Time since midnight, in hundredths of a second, that the reader
recognized the JOB card (for this job).
I assumed that you wanted to extract the data from SMF17RST field. So here
is a DFSORT job which will format your entire SMF17 data while extracting
the information that ran between 15:00:00(3 pm) and 17:00:00(5 pm). Look
at the OUTFIL INCLUDE commands for the inclusion ranges.
//STEP2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=(OLD,DELETE),DSN=&&SM11,
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY,VLSHRT
INCLUDE COND=(6,1,BI,EQ,17) $ TYPE 17
INREC BUILD=(1,4,
07,4,TM1,EDIT=(TT:TT:TT), $ SMF17TME
X, $ SPACE
11,4,DT1,EDIT=(TTTT-TT-TT), $ SMF17DTE
X, $ SPACE
15,4, $ SMF17SID
X, $ SPACE
19,8, $ SMF17JBN
X, $ SPACE
27,4,TM1,EDIT=(TT:TT:TT), $ SMF17RST
X, $ SPACE
31,4,DT1,EDIT=(TTTT-TT-TT), $ SMF17RSD
X, $ SPACE
35,8, $ SMF17UID
X, $ SPACE
43,2, $ RESERVED
X, $ SPACE
45,44, $ SMF17DSN
X, $ SPACE
89,3, $ RESERVED
X, $ SPACE
92,1,BI,EDIT=(TTT), $ SMF17NVL
X, $ SPACE
93,2, $ RESERVED
X, $ SPACE
95,6) $ SMF17FVL
OUTFIL VTOF,BUILD=(5,128),
INCLUDE=(39,8,CH,GE,C'15:00:00',AND,
39,8,CH,LE,C'17:00:00')
//*
Further if you have any questions please let me know
Thanks,
Kolusu
IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on
01/26/2017 10:21:14 AM:
> From: esmie moo <0000012780d99c7b-dmarc-requ...@listserv.ua.edu>
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 01/26/2017 10:21 AM
> Subject: SMF QUESTION
> Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
>
> Gentle Readers,
>
> I am trying to print TYPE 17 records(using IDCAMS PRT command) to
> find out what dsns were deleted from 15:00 (3.pm.) up to 17:00
> (5.pm. The IDCAM report that is produced doesn't seem to give me
> what I am looking for. I was wondering if someone can validate my
> input cards.
> //SYSIN DD *
> INDD(SMF,OPTIONS(DUMP))
> START(1500)
> END(1700)
> OUTDD(OUTDD1,TYPE(17:17))
> /*
> //STEP2 EXEC PGM=IDCAMS,TIME=1440
> //DD1 DD DSN=&&SM11,
> // DISP=(OLD,DELETE),
> // DCB=(RECFM=VBS,LRECL=32760,BLKSIZE=4096)
> //SYSOUT DD SYSOUT=*
> //SYSPRINT DD SYSOUT=*
> //SYSIN DD *
> PRINT INFILE(DD1) DUMP
> /*
>
> Thanks in advance
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
