Re: Monitor feedback from ping

Here is a program that I use:

/* PINGTEST */                                              
/* TEST SITE CONNECTION USING PING COMMAND */                


PGM        PARM(&ADDRESS &RESULT)              

DCL        VAR(&ADDRESS) TYPE(*CHAR) LEN(15)   
DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)      
DCL        VAR(&RESULT) TYPE(*CHAR) LEN(1)     

CHGVAR     VAR(&RESULT) VALUE('0')             

PING       RMTSYS(&ADDRESS)                               

 /* SITE NOT AVAILABLE */                                               
MONMSG     MSGID(TCP3202) EXEC(GOTO CMDLBL(NOGOOD))       

 LOOP:                                                                  
RCVMSG     MSGID(&MSGID)                                  

 /* PING FAILED */                                                      
IF         COND(&MSGID *EQ ' ') THEN(GOTO CMDLBL(NOGOOD)) 

 /* PING WAS SUCCESSFUL */                                              
IF         COND(&MSGID *EQ 'TCP3215') THEN(GOTO +         
CMDLBL(END))                                 

GOTO       CMDLBL(LOOP)               

 NOGOOD:                                            
CHGVAR     VAR(&RESULT) VALUE('1')    

END:        ENDPGM                                

  ----- Original Message -----
  From: fu_james@xxxxxxxxxxxxxx
  To: "Midrange Systems Technical Discussion"
  Subject: Monitor feedback from ping
  Date: Wed, 18 Oct 2006 10:51:19 -0400




  List,
  I am trying to monitor the feedback from "ping" command in a CLP.
  Unfortunately, TCP3206/TCP3213/TCP3409 are all information messages
  and can
  not be monitored by "MONMSG". Any simple way to do that? Thanks...

  Best Regards.

  James Fu

  TDL Group Corp. (Tim Hortons)
  Oakville, Ontario
  Direct: 905-339-5798
  fu_james@xxxxxxxxxxxxxx
  Web: http://www.timhortons.com

  --
  This is the Midrange Systems Technical Discussion (MIDRANGE-L)
  mailing list
  To post a message email: MIDRANGE-L@xxxxxxxxxxxx
  To subscribe, unsubscribe, or change list options,
  visit: http://lists.midrange.com/mailman/listinfo/midrange-l
  or email: MIDRANGE-L-request@xxxxxxxxxxxx
  Before posting, please take a moment to review the archives
  at http://archive.midrange.com/midrange-l.