RE: ping from rpg

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
I just grabbed some code from another program that was seting an override,
so this is untested...

Hactgrp(*caller) dftactgrp(*no)  bnddir('QC2LE')

D SystemCmd       Pr            10I 0 ExtProc('system')
D   CmdString                     *   Value Options(*String)

C                  eval      x = systemcmd('PING RMTSYS(remote)
MSGMODE(*QUIET *ESCAPE)')

And then check whats in x

> -----Original Message-----
> From: rob@dekko.com [SMTP:rob@dekko.com]
> Sent: Thursday, April 11, 2002 11:44 AM
> To:   rpg400-l@midrange.com
> Subject:      ping from rpg
>
> This is a multipart message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> I am trying to verify a location from within a RPGLE program.  One method
> is to
        PING RMTSYS(remote) MSGMODE(*QUIET *ESCAPE)
> and monitor for a message.  I was just trying to avoid the CL.
>
> I searched the api's at
> http://publib.boulder.ibm.com/html/as400/v5r1/ic2924/info/apis/comm.htm
> but didn't see one for ping.  I was hoping to be able to do something
> like"
>
> if not ping(remote);
>  ...
> else;
>  ...
> EndIf;
>
> Or, instead of a logical, I suppose I could do:
> errmsg=ping(remote);
> Select;
> When errmsg=*blanks;
>  ...
> When errmsg='TCP3202';  // unknown host
>  ...
> When errmsg='TCP3210';  // communication unsuccessful
> ...
> Other;
>  ...
> Endsl;
>
> If I do it this second way then I could always write a wrapper to give me
> the first method.
>
>
> Rob Berendt
> --
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety."
> Benjamin Franklin
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.