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