> 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
SMF17DSNF,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 [email protected] with the message: INFO IBM-MAIN
