Re: Verify IP address program?

[Chuck Lewis <CLEWIS@xxxxxxxxxx>]

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
> +---

+---
| 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
+---