RE: Programmatically Pull the IP Address of The iSeries

["Terry Anderson" <terrya@xxxxxxxxxxxx>]

> > message: 7
> > date: Wed, 19 Jul 2006 15:08:14 -0400
> > from: rob@xxxxxxxxx
> > subject: RE: Programmatically Pull the IP Address of The iSeries
> >
> > <snip>
> > When we are role swapped, the file needs to go to the DR iSeries.
> > </snip>
> > Excuse me, but we're looking at DR also.  Wouldn't the DR 
> > iSeries change in some other fashion? 

Yes it does. I wound up using the RTVNETA anyway to get the name of the
iSeries. I ping that and it returns the IP address of the one they are
working on. See the code snippet below.

RTVNETA    SYSNAME(&SYSNAME)

PING       RMTSYS(&SYSNAME)                            
RCVMSG     MSGTYPE(*INFO) MSG(&MSGDTA)                 
CHGVAR     VAR(&IPADDR) VALUE(%SST(&MSGDTA 57 12))     
                                                       
CHGVAR     VAR(&PATH) VALUE('net use T: \\' *TCAT +    
             &IPADDR *TCAT '\CMTEMP')                  
                 

Like I said, its not pretty but it works. The divisions are swapping
back tomorrow. After we get through with that, I am going to look into
using gethostbyname. 

Terry Anderson.