At one time did IBM says that SMF reporting would also be done at the member
level. I need to find the date, time & ID a member was deleted.
If this is the case does anyone have a process to do this.
Thank You
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Sri
h Kolusu
Sent: Friday, November 06, 2020 10:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Offsets SMF17
ATTENTION: This e-mail came from an external source. Do not open attachments or
click on links from unknown or unexpected emails.
> I want to make a list of the files that have been deleted, from SMF
> record 17, and it must be offsets but nothing comes out.
> can you help me?
Jordi,
As others mentioned, your offsets are off. SMF17 layout is pretty straight
forward. So you can code DFSORT symbols and use them instead of hard coding the
offsets. So use the following job
//STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//SYMNAMES DD *
SMF17RDW,1,04,BI
SMF17LEN,=,02,BI
SMF17SEG,*,02,BI
SMF17FLG,*,01,BI
SMF17RTY,*,01,BI
SMF17TME,*,04,BI
SMF17DTE,*,04,PD
SMF17SID,*,04,CH
SMF17JBN,*,08,CH
SMF17RST,*,04,BI
SMF17RSD,*,04,PD
SMF17UID,*,08,CH
SMF17RIN,*,02,BI
SMF17DSN,*,44,CH
SMF17DSNF,=,04,CH
SMF17DSNR,*,40,CH
SMF17RV1,*,03,BI
SMF17NVL,*,01,BI
SMF17RV2,*,02,BI
SMF17FVL,*,06,CH
/*
//RAWSMF DD DISP=SHR,DSN=SA$SF.ALL.M.GEN1.YEAR2011.DATA.G0001V00
// DD DISP=SHR,DSN=SA$SF.ALL.M.GEN1.YEAR2011.DATA.G0002V00
// DD DISP=SHR,DSN=SA$SF.ALL.M.GEN1.YEAR2011.DATA.G0003V00
// DD DISP=SHR,DSN=SA$SF.ALL.M.GEN1.YEAR2011.DATA.G0004V00
//SMF DD DSN=&&TEMPV,SPACE=(CYL,(15,15)),UNIT=SYSDA
//SMFREP DD DSN=SA80855.GENX.SMF17.TXT,
// UNIT=3390,DISP=(,CATLG),
// SPACE=(CYL,(2,2),RLSE)
//TOOLIN DD *
COPY FROM(RAWSMF) TO(SMF) USING(SMFI)
DISPLAY FROM(SMF) LIST(SMFREP) -
BETWEEN(2) -
LINES(999) -
BLANK -
TITLE('SMF-17 : WHO DELETED DATASETS') DATE TIME PAGE -
HEADER('SMF') ON(SMF17RTY) -
HEADER('SYS') ON(SMF17SID) -
HEADER('DATE') ON(SMF17DTE,DT1,E'9999/99/99') -
HEADER('TIME') ON(SMF17TME,TM1,E'99:99:99') -
HEADER('JOB') ON(SMF17JBN) -
HEADER('USER') ON(SMF17UID) -
HEADER('DATASET DELETED') ON(SMF17DSN) -
HEADER('-VOLS') ON(SMF17NVL) -
HEADER('VOLSER') ON(SMF17FVL)
/*
//SMFICNTL DD *
OPTION VLSCMP,SPANINC=RC0
INCLUDE COND=(SMF17RTY,EQ,17,AND, $ TYPE 17
SMF17DSN,EQ,C'UCAT') $ SMF17DSN = UCAT
SORT FIELDS=(SMF17DTE,A, $ SMF17DTE
SMF17TME,A) $ SMF17TME
/*
Just in case the format is messed up here, I am going to send the solution as a
text mail offline.
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
*** Disclaimer ***
This communication (including all attachments) is solely for the use of the
person to whom it is addressed and is a confidential AAA communication. If you
are not the intended recipient, any use, distribution, printing, or copying is
prohibited. If you received this email in error, please immediately delete it
and notify the sender.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
