Re: Monitoring NT servers, was paging

Thanks Rob, this is not available on V3R7.
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: Rob Berendt <rob@dekko.com>
To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
Date: Monday, August 30, 1999 4:41 PM
Subject: Re: Monitoring NT servers, was paging


>Yes you can do a MONMSG.  You have to look at the options on the ping
command.  Select *ESCAPE.
>
>
>
>
>cgalgano@ediconsulting.com on 08/27/99 01:05:32 PM
>Please respond to MIDRANGE-L@midrange.com@Internet
>To: MIDRANGE-L@midrange.com@Internet
>cc:
>Fax to:
>Subject: Re: Monitoring NT servers, was paging
>
>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
>+---
>
>
>+---
>| 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
+---