× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Monitoring NT servers, was paging
  • From: "Carl Galgano" <cgalgano@xxxxxxxxxxxxxxxxx>
  • Date: Fri, 27 Aug 1999 12:52:47 -0400

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.