|
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.