Re: Monitoring NT servers, was paging

["Carl Galgano" <cgalgano@xxxxxxxxxxxxxxxxx>]

Thanks Buck!
Carl Galgano
EDI Consulting Services, Inc.
540 Powder Springs Street
Suite C19
Marietta, GA  30064
770-422-2995
mailto: cgalgano@ediconsulting.com
http://www.ediconsulting.com
EDI, Communications and AS400 Technical Consulting

-----Original Message-----
From: Buck Calabro <mcalabro@commsoft.net>
To: 'MIDRANGE-L@midrange.com' <MIDRANGE-L@midrange.com>
Date: Thursday, August 26, 1999 4:23 PM
Subject: RE: Monitoring NT servers, was paging


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

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