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