RE: Monitoring NT servers, was paging

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

Not a MONMSG, but you can RCVMSG to get the informational messages back.
Here's a quick hack:

PGM &IPAddr                                                       
                                                                  
DCL &IPAddr  *Char  15                                            
DCL &PktSent *Dec  ( 9 0)                                         
DCL &PktRcvd *Dec  ( 9 0)                                         
DCL &PktPct  *Dec  ( 9 0)                                         
DCL &PktChar *Char   4                                            
                                                                  
DCL &MSGID   *Char   7                                            
DCL &MSGDTA  *Char 100                                            
DCL &MSGF    *Char  10                                            
DCL &MSGFLIB *Char  10                                            
                                                                  
Ping &IPAddr                                                      
                                                                  
InfoMsg:                                                          
RcvMsg MSGTYPE(*ANY) +                                            
       MSGDTA(&MSGDTA) +                                          
       MSGID(&MSGID) +                                            
       MSGF(&MSGF)  +                                             
       MSGFLIB(&MSGFLIB)                                          
IF (&MSGID *EQ '       ') GOTO NoMoreMsg                          
IF (&MSGID *NE 'TCP3210') GOTO InfoMsg      /* Conn verif stats */
                                     
  ChgVar &PktChar %sst(&MSGDTA 01 04)
  ChgVar &PktSent %bin(&PktChar)     
  ChgVar &PktChar %sst(&MSGDTA 05 04)
  ChgVar &PktRcvd %bin(&PktChar)     
  ChgVar &PktChar %sst(&MSGDTA 09 04)
  ChgVar &PktPct  %bin(&PktChar)     
                                     
  DMPCLPGM                           
                                     
NoMoreMsg:                           
                                     
RETURN                               
ENDPGM                               

Buck

Buck Calabro
Aptis; Albany, NY
mailto:Buck.Calabro@aptissoftware.com

> -----Original Message-----
> From: Carl Galgano 
> Sent: Thursday, August 26, 1999 12:59 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      Re: Monitoring NT servers, was paging
> 
> How do you check in a CL program to see if the PING is successful.  You
> can't do a MONMSG can you?
> 
> -----Original Message-----
> From: Rob Berendt <rob@dekko.com>
> To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
> Date: Thursday, August 26, 1999 10:11 AM
> Subject: Re: Monitoring NT servers, was paging
> 
> >Interesting remark about monitoring NT servers.  We had an NT server that
> >locked up a couple of times a day.  We ended up writing a CL program to
> ping
> >the NT server every x number of minutes.  If two consecutive pings failed
> it
> >paged us.  We didn't use our paging software for this.  Our paging vendor
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---