Re: Anyone written CL based "ping" checks ?

[Marco Facchinetti <facchinetti@xxxxxxxxx>]

****** Inizio dati **********************************
 PGM        PARM(&IP &MSG)                           
 DCL        VAR(&IP) TYPE(*CHAR) LEN(20)             
 DCL        VAR(&MSG) TYPE(*CHAR) LEN(60)            
 PING       RMTSYS(&IP) MSGMODE(*VERBOSE *ESCAPE)    
 MONMSG     MSGID(TCP3210) EXEC(SNDMSG MSG(&MSG) +   
              TOUSR(*SYSOPR))                        
    ENDPGM                                           
******** Fine dati **********************************
--- Chuck Lewis <clewis@iquest.net> wrote:
> Hi Folks,
> 
> Just wondering if anyone had written any CL based "ping"
> checks that
> they would want to share ? OR any good ideas on how to do
> this ?
> 
> I started to do this but of course instantly ran up
> against the fact
> that this information is written to the "job log" and
> haven't started
> digging into how to get at that with the lack of an
> output parameter on
> the PING command...
> 
> Thanks !
> 
> Chuck
> 
> +---
> | 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
> +---


__________________________________________________
Do You Yahoo!?
Yahoo! Messenger - Talk while you surf!  It's FREE.
http://im.yahoo.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
+---