RE: Monitoring TCP/IP connections

["Richard Jackson" <richardjackson@xxxxxxxxxxxxxxxxxx>]

Then create a program containing an embedded SQL statement that performs a
select against a little file containing one record.  Monitor the SQL return
codes.  Note, if the statement fails, the return codes may not tell you what
the problem is, only that there is one.

Richard Jackson
mailto:richardjackson@richardjackson.net
www.richardjacksonltd.com
Voice: 1 (303) 808-8058
Fax:   1 (303) 663-4325

-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of
oliver.wenzel@cibavision.novartis.com
Sent: Thursday, August 17, 2000 7:01 AM
To: MIDRANGE-L@midrange.com
Subject: AW: Monitoring TCP/IP connections


Arlene,

ping only tells me if the unix box is alive - but not if the DB2/connect
stuff is up and running.

Thanx,

Oliver

> -----Ursprüngliche Nachricht-----
> Von:  Arlene M Soderlund [SMTP:Arlene_M_Soderlund/NFCNA.COM@nfcna.com]
> Gesendet am:  Donnerstag, 17. August 2000 14:45
> An:   MIDRANGE-L@midrange.com; oliver.wenzel@cibavision.exc3.Novartis.com
> Betreff:      Re: Monitoring TCP/IP connections
>
>
>
>
>
>
>
>
>
>
> oliver.wenzel@cibavision.Novartis.com on 08/17/2000 04:49:43 AM
>
>
>
> > Hello,
> >
> > we have 2 Unix boxes (RS/6000) accessing our 620 (V4R3) via TCP/IP and
> > DB2/Connect. We need some automatic means
> > of monitoring these connections - i.e. we want to know asap when
> > transactions cease or stop.
> >
> >
>
>
> Oliver -
>
> PING!
>
>
>  PING       RMTSYS(&PINGID)
>  MONMSG     MSGID(TCP3213 TCP2670 TCP3202) +
>               EXEC(SNDPGMMSG MSGID(NSN0008) +
>               MSGF(NIMSGF) MSGDTA(&PINGNAME) +
>               TOMSGQ(*SYSOPR))
>  RCVMSG     MSGTYPE(*LAST) RMV(*YES) MSGDTA(&MSGDTA) +
>               MSGID(&MSGID)
>  MONMSG     MSGID(CPF0000 MCH0000)
>  RCVMSG     MSGTYPE(*LAST) RMV(*YES) MSGDTA(&MSGDTA) +
>               MSGID(&MSGID)
>  MONMSG     MSGID(CPF0000 MCH0000)
>
>  IF         COND(&MSGID *EQ 'TCP3206') THEN(DO)
>  SNDPGMMSG  MSGID(NSN0008) MSGF(NIMSGF) +
>               MSGDTA(&PINGNAME) TOMSGQ(*SYSOPR)
>  DLYJOB     DLY(60)
>  ENDDO
>  ENDDO
>
> NSN0008 is just a message we created to be used with a pager program.
>
>                                                              System:
> S1029043
>  Message ID . . . . . . . . . :   NSN0008
>  Message file . . . . . . . . :   NIMSGF
>    Library  . . . . . . . . . :     QSYSMOD
>  Message text . . . . . . . . :   &1 TCP NETWORK Connection not responding
>
>
>
> From the Old Taatools,   (Undoubtably new also) there is a Command called
> WRKSYSACT, this goes to an outfile that can be read by an RPG or CL
> program and
> again sent to QSYSOPR.
>
>
>
>
+---
| 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
+---