Jordi, I don't know your dataset naming convention, anyway dsname start at offset 44 but it's byte 45 for ICETOOL (like 6 is the position of record type).
Offsets Name Length Format Description 5 5 SMF17RTY 1 binary Record type 17 (X'11') ... 44 2C SMF17DSN 44 EBCDIC Data set name. Hope this helps. Best regards. Max <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail> Mail priva di virus. www.avast.com <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail> <#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2> Il giorno ven 6 nov 2020 alle ore 09:39 Jordi Bornay < [email protected]> ha scritto: > hi, > It may be a small detail, but sometimes when you think about it a lot, you > don't see it. > 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? > > Thank's > > jcl: > > //SYMBOLS INCLUDE MEMBER=SYMBOLS > //STEP1 EXEC PGM=ICETOOL > //TOOLMSG DD SYSOUT=* > //DFSMSG DD SYSOUT=* > //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,0),RLSE) > //TOOLIN DD * > COPY FROM(RAWSMF) TO(SMF) USING(SMFI) > DISPLAY FROM(SMF) LIST(SMFREP) - > TITLE('SMF-17 : WHO DELETED DATASETS') DATE TIME PAGE - > HEADER('SMF') ON(6,1,BI) - > HEADER('SYS') ON(14,4,CH) - SMF17SID > HEADER('DATE') ON(10,4,DT1,E'9999/99/99') - SMF17DTE > HEADER('TIME') ON(6,4,TM1,E'99:99:99') - SMF17TME > HEADER('JOB') ON(18,8,CH) - SMF17JBN > HEADER('USER') ON(34,8,CH) - SMF17UID > HEADER('DATASET DELETED') ON(44,44,CH) - SMF17DSN > HEADER('-VOLS') ON(91,1,BI) - SMF17NVL > HEADER('VOLSER') ON(2,6,CH) - SMF17FVL > BETWEEN(2) - > LINES(999) - > BLANK > /* > //SMFICNTL DD * > INCLUDE COND=(6,1,BI,EQ,X'11',AND,44,4,CH,EQ,C'UCAT') > SORT FIELDS=(11,4,CH,A,7,4,CH,A) > /* > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
