Hi All,
I would like to know who deleted member in my PDS dataset and I found some
sample JCL (shown below) using program ICETOOL to read SMF type 42 but DFSORT
is not licensed for use on our system.
Any help would be appreciated, if you have any sample JCL to keep the track of
member deleted.
Anchalee L.
Thai Airways Inter.
//COPYSMF EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//RAWSMF DD DSN=your.smf.dataset,DISP=SHR
//SMF42 DD DSN=userid.T4221.TEST,
// SPACE=(CYL,(xx,yy)),UNIT=SYSDA,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760)
//TOOLIN DD *
COPY FROM(RAWSMF) TO(SMF42) USING(SMFI)
//SMFICNTL DD *
OPTION SPANINC=RC4,VLSHRT
INCLUDE COND=(6,1,BI,EQ,42,AND,23,2,BI,EQ,21)
/*
//RPT42 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SMF42 DD DSN=userid.T4221.TEST,DISP=SHR
//SMFREP DD SYSOUT=*
//TOOLIN DD *
DISPLAY FROM(SMF42) LIST(SMFREP) -
TITLE('Deleted PDS / PDSE members') DATE(4MD/) TIME -
HEADER('Sys') ON(15,4,CH) -
HEADER('Date') ON(11,4,DT1,E'9999/99/99') -
HEADER('Time') ON(7,4,TM1,E'99:99:99') -
HEADER('Job Name') ON(89,12,CH) -
HEADER('Step Name') ON(101,8,CH) -
HEADER('Dataset') ON(117,35,CH) -
HEADER('Member') ON(169,12,CH) -
HEADER('Vol Ser') ON(157,11,CH) BLANK
/*
Mile D Pekic
Systems Programmer (Yugoslavia) c Xephon 2003
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
