CONTRA> typ WATCHER_FINDFILE_RDMSTMP.com                                        
$!                                                                              
$!      Watcher_findfile_rdmstmp.com                                            
$!      Residence: Sys$sysdevice:[central]                                      
$!      Called by: Site_invoke.com                                              
$!      Created: 14-NOV-2002  R. LeSaar                                         
$!      Purpose: Find temporary RDMS files and delete                           
$!************************************************************************      
$ set proc/priv=all                                                             
$ set noon                                                                      
$ set ver                                                                       
$ mypid = f$getjpi("","pid")                                                    
$ num = 0                                                                       
$!                                                                              
$FIND_RDMS_TEMP:                                                                
$ if f$search("sys$sysdevice:[central]findfile.cld") .eqs. "" then -            
   goto THE_END                                                                 
$ set command sys$sysdevice:[central]findfile.cld                               
$ findfile/name=rdmsttbl$*.tmp/outp=rdms.'mypid' usrdsk1                        
$ search/nowarn/outp=find.'mypid' rdms.'mypid' "rdmsttbl$"                      
$ if f$file("find.''mypid'","eof") .nes. 0                                      
$  then                                                                         
$     open/read input find.'mypid'                                              
                            Press RETURN to continue                            
$     WRITE_FIND:                                                               
$     read/end=close_find input rec                                             
$     write sys$output "''node'::usrdsk1 ''rec'"                                
$     goto write_find                                                           
$     CLOSE_FIND:                                                               
$     close input                                                               
$     analyze/disk/repair usrdsk1                                               
$ endif                                                                         
$     dir usrdsk1:[syslost]rdms*.tmp;*                                          
$     sear SYS$SYSROOT:[SYSMGR]rdms* total                                      
$     delete/log/before=yesterday usrdsk1:[syslost]rdms*.tmp;*                  
$ delete/nolog find.'mypid';*,rdms.'mypid';*                                    
$ purge/nolog/keep=10 sys$sysdevice:[central]watcher_findfile_rdmstmp.log       
$!                                                                              
$THE_END:                                                                       
$ exit