#!/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;