Re: Verify IP address program?

Its an API that retrieves the display session information. ie IP Address
G

Chuck Lewis wrote:
> 
> Gary,
> 
> What is program QDCRDEVD (I know it is in QSYS...) ?
> 
> Thanks !
> 
> Chuck
> 
> Gary Feinstein wrote:
> 
> > David Gibbs wrote:
> > >
> > > Folks:
> > >
> > > A while ago I posted a message with a program that would verify the IP
> > > address of a remote system by pinging the remote system and receiving
> > > the messages that ping generated.
> > >
> > > Unfortunately, I seem to have lost the source... does anyone have a copy
> > > of it handy?
> > >
> > > Thanks!
> > >
> > > david
> > David,
> >         What comes around, goes around!
> > HTH,
> > Gary Feinstein
> > AS/400 Systems Manager
> > Planet Hollywood International Inc.
> >
> >     PGM
> >               DCL        VAR(&DEVD) TYPE(*CHAR) LEN(10)
> >               DCL        VAR(&IP) TYPE(*CHAR) LEN(15)
> >               DCL        VAR(&RECEIVER) TYPE(*CHAR) LEN(892)
> >               DCL        VAR(&LENGTH) TYPE(*CHAR) LEN(4)
> >               DCL        VAR(&ERRLENGTH) TYPE(*CHAR) LEN(4)
> >               RTVJOBA    JOB(&DEVD)
> >               CHGVAR     VAR(%BIN(&LENGTH)) VALUE(892)
> >              CHGVAR     VAR(%BIN(&ERRLENGTH)) VALUE(0)
> >              CALL       PGM(QDCRDEVD) PARM(&RECEIVER &LENGTH +
> >                         DEVD0600 &DEVD &ERRLENGTH)
> >              CHGVAR     VAR(&IP) VALUE(%SST(&RECEIVER 878 15))
> >              SNDPGMMSG  &RECEIVER
> >              SNDPGMMSG  &IP
> >              ENDWTR     WTR(ZURICHMER) OPTION(*IMMED)
> >              MONMSG     MSGID(CPF0000)
> >              DLYJOB     DLY(15)
> >              CHGOUTQ    OUTQ(QUSRSYS/ZURICHMER) INTNETADR(&IP)
> >              MONMSG     MSGID(CPF0000)
> >              STRRMTWTR  OUTQ(QUSRSYS/ZURICHMER) WTR(ZURICHMER)
> >              MONMSG     MSGID(CPF0000)
> >              CALL       PGM(JDASYS/SIGNPRD)
> >    ENDPGM
+---
| 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
+---