Was it really deleted or perhaps just uncataloged/renamed?  When was the
last time is was used successfully?

You should also be looking at types 18, 65, and 66

-----Original Message-----
From: willie bunter [mailto:snip] 
Sent: Thursday, August 02, 2007 9:00 AM
To: [email protected]
Subject: SAS/SMF QUESTION

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

----------------------------------------------------------------------
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

Reply via email to