Process Process Description  Status                                            
 
  Number                       
 
-------- -------------------- ------------------------------------------------- 
 
      69 Backup Storage Pool  Primary Pool TAPE_BACKUP, Copy Pool TAPE_OFFSITE, 
 
                               Files Backed Up: 36081, Bytes Backed Up:         
 
                               27,770,282,615, Unreadable Files: 0, Unreadable  
 
                               Bytes: 0. Current Physical File (bytes):         
 
                               8,409,734,275 Waiting for access to input volume 
 
                               300082 (3116 seconds). Current output volume:    
 
                               300724.                                          
 
      70 Backup Storage Pool  Primary Pool TAPE_BACKUP, Copy Pool TAPE_OFFSITE, 
 
                               Files Backed Up: 39, Bytes Backed Up:            
 
                               330,587,389,610, Unreadable Files: 0, Unreadable 
 
                               Bytes: 0. Current Physical File (bytes):         
 
                               10,636,058,581 Current input volume: 300082.     
 
                               Current output volume: 300412.                   
 
      71 Space Reclamation    Offsite Volume(s) (storage pool TAPE_OFFSITE),    
 
                               Moved Files: 8401, Moved Bytes: 851,107,244,     
 
                               Unreadable Files: 0, Unreadable Bytes: 0.        
 
                               Current Physical File (bytes): 4,356,813 Waiting 
 
                               for access to input volume 300082 (1843          
 
                               seconds). Current output volume: 300351.

#!/usr/bin/perl 
 
  
 
my $rundsm = "dsmadmc -id=reports -pa=reports q proc | grep Waiting"; 
 
my @output = `$rundsm`; 
 
my $string = "Waiting call (1001"; 
 
  
 
if (@output gt $string) { 
 
     print "Message: Issue Found, Alert Operators\n"; 
 
     print "Statistic: 1\n"; 
 
     } 
 
else { 
 
     print "Message: No Issues Found\n"; 
 
     print "Statistic: 0\n"; 
 
     } 
 
exit 0;

 
use strict; 
use warnings; 
 
my $data = "69 Backup Storage Pool  Primary Pool TAPE_BACKUP, Copy Pool TAPE_OFFSITE,  
  
                               Files Backed Up: 36081, Bytes Backed Up:         
  
                               27,770,282,615, Unreadable Files: 0, Unreadable 
  
                               Bytes: 0. Current Physical File (bytes):          
  
                               8,409,734,275 Waiting for access to input volume 
  
                               300082 (3116 seconds). Current output volume:    
  
                               300724.                                          
 
      70 Backup Storage Pool  Primary Pool TAPE_BACKUP, Copy Pool TAPE_OFFSITE,  
  
                               Files Backed Up: 39, Bytes Backed Up:             
  
                               330,587,389,610, Unreadable Files: 0, Unreadable  
  
                               Bytes: 0. Current Physical File (bytes):          
  
                               10,636,058,581 Current input volume: 300082.      
  
                               Current output volume: 300412.                    
  
      71 Space Reclamation    Offsite Volume(s) (storage pool TAPE_OFFSITE),     
  
                               Moved Files: 8401, Moved Bytes: 851,107,244,      
  
                               Unreadable Files: 0, Unreadable Bytes: 0.         
  
                               Current Physical File (bytes): 4,356,813 Waiting  
  
                               for access to input volume 300082 (1843           
  
                               seconds). Current output volume: 300351."; 
 
 
$data =~ s/\n|\r//g; #remove the \n or \r and make it all one line of data to search thru.. 
 
#save all matches then print 
my @return2 = $data =~ /(\(\d+\s+seconds\))/g; 
        print "Found: $_\n\n" for @return2;

use strict; 
use warnings; 
 
my $rundsm = "dsmadmc -id=reports -pa=reports q proc"; 
$rundsm =~ s/\n|\r//g; 
my $seconds = $rundsm =~ /(\(\d+\s+seconds\))/g; 
 
if ($seconds >= 1001) { 
 print "Message: Issue Found, Alert Operations\n"; 
 print "Statistic: 1\n"; 
} 
else { 
 print "Message: No Issues Foun\n"; 
 print "Statistic: 0\n"; 
} 
exit 0;

use strict;  
use warnings;  
  
my $rundsm = "dsmadmc -id=reports -pa=reports q proc";  
$rundsm =~ s/\n|\r//g;  
my @seconds = $rundsm =~ /(\(\d+\s+seconds\))/g;  
 
#useing a regex in scalar context($seconds = $rundsm) only returns the last match, useing the array returnes all 
 
#also the regex is returning 1 or more digets followed by \s(space) followed by seconds 
#ie: 1336 seconds, 1886             seconds 
 
#loop thru the results 
for my $each (@seconds){ 
     $each =~ /(\d+)/;   #capture only the seconds 
 
    if ($1  >= 1001) {  
      print "Message: Issue Found, Alert Operations\n";  
      print "Statistic: 1\n";  
   } else {  
      print "Message: No Issues Foun\n";  
     print "Statistic: 0\n";  
   }  
} 
exit 0;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use List::Util qw(max); 
 
my $rundsm  = `dsmadmc -id=reports -pa=reports q proc`; 
my @seconds = $rundsm =~ /\((\d+)\s+seconds\)/mg; 
 
if (max(@seconds) >= 1001) { 
    print "Message: Issue Found, Alert Operations\n", 
          "Statistic: 1\n"; 
    exit 1; 
} 
else { 
    print "Message: No Issues Foun\n", 
          "Statistic: 0\n"; 
    exit 0; 
}