Re: Verify IP address program?

[Gary Feinstein <gfeinste@xxxxxxxxxxxxxxxxxxx>]

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