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
