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 ]
Good catch, i forgot a piece of code...

You need to add...
D ErrorCode       S              7A   Import('_EXCP_MSGID')
And then if x <> 0, you can look at the variable errorcode for the exception
value...

> -----Original Message-----
> From: dmosley@dancik.com [SMTP:dmosley@dancik.com]
> Sent: Thursday, April 11, 2002 12:05 PM
> To:   rpg400-l@midrange.com
> Subject:      RE: ping from rpg
>
>
> 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.
>
>
>
>
> _______________________________________________
> 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.