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