Hallo,
I am trying to track down the culprit who deleted a production library. I
ran a SAS/SMF job but no records were found. I ran it for TYPE 17 as well as
for TYPE14 & 15 but to no avail.
Anybody can suggest that there is something else I could try? Below is my
code for type 14 & 15
:
DATA RAWOUT(KEEP=PRODUCT SYSTEM DSNAME GENDATE GENTIME JOBNAME);
TRACK=0;
JOBNAME = ' ';
INFILE SMF END=EOF;
INPUT @2 RECID PIB1. @;
IF RECID = 14 THEN GO TO REC14;
IF RECID = 15 THEN GO TO REC14;
INPUT;DELETE;
REC14:
INPUT @2 RECID PIB1.
@3 GENTIME PIB4.
@7 GENDATE PD4.
@15 JOBNAME $8.
@65 DSNAME $44.
@65 DSPREF $11.
@65 DSL20 $20.
@183 VOLSER $6. @;
GENTIME=GENTIME/100;
IF DSL20 = 'AM1.JCLERROR.DATALIB' THEN DO;
PRODUCT = 'GOTIT';
GO TO GETINFO;
END;
INPUT;DELETE;
GETINFO:
OUTPUT RAWOUT;
RETURN;
PROC SORT DATA=RAWOUT;BY PRODUCT SYSTEM DSNAME GENDATE GENTIME JOBNAME;
PROC PRINT DATA=RAWOUT;BY PRODUCT SYSTEM DSNAME;ID GENDATE;
Thanks
---------------------------------
Need a vacation? Get great deals to amazing places on Yahoo! Travel.
----------------------------------------------------------------------
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
