RE: A program to get the IP address of the Internet connection.

[Tim McCarthy <TimM@xxxxxxxxxxxxxxxxxx>]

TrailBlazer Systems, Inc.
http://www.softwarejungle.com
AS/400 E-Commerce Solutions

Chaos, panic, & disorder - my work here is done.

        Gary, I have a program that will allow you to start a PPP link
"interactively", waiting for the connection to get established before
continuing. It issues a message back to the caller that includes the
interface address used.
         
> -----Original Message-----
> From: owner-midrange-l@midrange.com
> [mailto:owner-midrange-l@midrange.com]On Behalf Of Gary Kuznitz
> Sent: Wednesday, November 24, 1999 2:33 AM
> To: MIDRANGE-L@midrange.com
> Subject: Re: A program to get the IP address of the Internet
> connection.
> 
> 
> Hi Joe,
> 
> Thanks for the code.  This will give the IP address of a PC either
> local or
> at a remote site.  I'm looking for the IP address of the AS/400
> connected
> dynamically to the internet.
> 
> Thanks,
> 
> Gary Kuznitz
> 
> > > Would anyone possibly be willing to share a program that could get
> the
> IP
> > > address the 400 is connected to the internet with? I am connecting
> to
> the
> > > ISP with dynamic IP addressing.  I'd like to bring the IP address
> into a
> > > program so I can use it to keep the 400 alive and so I can use it
> to know
> > > when I am connected.  I'm on V4R4.
> >
> >             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))
> >             ENDPGM
> >
> > I can't take credit for this code as I got it from this list on an
> earlier
> > date.
> >
> > Joe Teff
> 
> 
> +---
> | 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
> +---
+---
| 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
+---