Re: Monitoring TCP/IP connections

["Jim Franz" <franz400@xxxxxxxxxxxx>]

Whether its TCP or SNA or whatever, if you really want
to know if the other side is alive, you need some sort of
polling transaction (user application) to monitor. Whether
you send it every minute, 5 minutes or 10 seconds is your
choice. The app looks like:
Send
wait for reply (with a timeout)
no reply - error (msg, pager, dial ...)
    else
reply  - do nothing
sleep for xx, then go to Send
Probably want a monitor pgm for Sysopr messages, or if
a msgq associated with DB2 jobs.
If you have many transaction a minute or hour, this is a
minimal addition. I've done this for DDM and it worked
fine.
Jim Franz

----- Original Message -----
From: <oliver.wenzel@cibavision.Novartis.com>
To: <MIDRANGE-L@midrange.com>
Sent: Thursday, August 17, 2000 9:00 AM
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
+---