RE: ping from rpg

[dmosley@xxxxxxxxxx]

Dumb question, I'm sure.   But what does the result of procedure 'system'
indicate.  0= No error,  <> = 0 = Error?

David L. Mosley, Jr.
Systems Analyst
2000 CentreGreen Way
Suite 250
Cary, NC 27513



                    "Hatzenbeler, Tim"
                    <thatzenbeler@clin        To:     "'rpg400-l@midrange.com'" 
<rpg400-l@midrange.com>
                    itech.net>                cc:
                    Sent by:                  Subject:     RE: ping from rpg
                    rpg400-l-admin@mid
                    range.com


                    04/11/02 02:52 PM
                    Please respond to
                    rpg400-l






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.
_______________________________________________
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.