RE: Ping via FTP?

Loyd,

Here is the routine I use to check for successful ping.

/* Check for a good connection to remote system                          
 RTYPING:    PING       RMTSYS(&IPADDRESS)                               
                                                                         
/* Error during ping process. Resend received message                    
             MONMSG     MSGID(CPF0000) EXEC(DO)                          
               RCVMSG     MSGTYPE(*EXCP) RMV(*NO) MSG(&ERRTXT) +         
                            MSGDTA(&ERRMSGDTA) MSGID(&ERRMSGID) +        
                            MSGF(&ERRMSGF) MSGFLIB(&ERRMSGFLIB)          
               SNDPGMMSG  MSGID(&ERRMSGID) MSGF(&ERRMSGFLIB/&ERRMSGF) +  
                            MSGDTA(&ERRMSGDTA) MSGTYPE(*ESCAPE)          
             ENDDO                                                       
                                                                         
/* Get last error message and determine if ping was successful           
             RCVMSG     MSGQ(*PGMQ) MSGTYPE(*LAST) RMV(*NO) +            
                          MSG(&ERRTXT) MSGDTA(&ERRMSGDTA) +              
                          MSGID(&ERRMSGID) MSGF(&ERRMSGF) +              
                          MSGFLIB(&ERRMSGFLIB)                           
                                                                         
             IF         COND(&ERRMSGID *EQ 'TCP3210') THEN(DO)           
                                                                         
/* Ping command completed but not with 100% success on the connections   
               IF         COND(%BIN(&ERRMSGDTA 9 4) *NE 100) THEN(DO)    
                                                                         
/* Retry 3 times before sending messages                            
                 IF         COND(&TRIES < 3) THEN(DO)               
                   CHGVAR     VAR(&TRIES) VALUE(&TRIES + 1)         
                   DLYJOB     DLY(10)                               
                   GOTO       CMDLBL(RTYPING)                       
                 ENDDO                                              
                                                                    
                 CHGVAR     VAR(&ERRMSGDTA) VALUE(&IDENTIFIER *CAT +
                              %SST(&ERRMSGDTA 1 8) *CAT &IPADDRESS) 
                 SNDPGMMSG  MSGID(FTP1005) MSGF(QMSGFCO) +          
                              MSGDTA(&ERRMSGDTA) MSGTYPE(*ESCAPE)   
               ENDDO                                                
                                                                    
             ENDDO                                                  

HTH,

Rick

-----Original Message-----
From: Loyd Goodbar [mailto:loyd@blackrobes.net]
Sent: Monday, January 27, 2003 6:14 PM
To: MIDRANGE-L@midrange.com
Subject: Ping via FTP?

I need to check that some external FTP servers are running. (FWIW, various
EDI
FTP servers over an ANX connection). However, the routers and firewalls
block
ping requests.

>From the command line, I can do an FTP 'w.x.y.z' and look at the resulting
screen, it usually says "Welcome ..." or "Connection failed." That's all I
would need to see, then F3 to exit the session.

If I get a Connection failed, then I could send emails to our shippers and
IT
folks up the line.

Is there an easy way to capture/parse the connection messages? I want to
schedule this type of job to run every 10-15 minutes.

pgm
ftp 'blah'
/* look through the ftp logs */
/* if the first output is Connection to host failed... */
snddst...
endpgm

Thanks,
Loyd
--
"Why, you can even hear yourself think." --Hobbes
"This is making me nervous. Let's go in." --Calvin
loyd@blackrobes.net  ICQ#504581  http://www.blackrobes.net/

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