RE: Gettting the IP address

[qsrvbas@xxxxxxxxxxxx (Tom Liotta)]

Rob:

If you're on your own system and you have a single IP address and you maintain 
the hostname in some standard way, you can probably get this easily from the 
QUSRSYS/QATOCHOST file with a little experimentation. But systems are often not 
so simple.

One way I've done this is with a sequence like the following in RPG:

Get the configured host name...

Eval      RC = GetHostName( %addr( TstName ) 
                          : 256              
                          )                  
Get the configured host name host entry structure...

Eval      Host@ = GetHostByName( %Addr( TstName  ))

Convert the 32-bit address to dotted decimal form...

Eval      IPAddr@ = InetNtoA( HAddrArr(1)
                            )            

GetHostName() returns the host name. I feed that into GetHostByName() in order 
to return the host entry data structure which includes the 32-bit network 
address. Then I convert the network address to dotted-decimal.

It seems to work reasonably well and could be turned into a command-processing 
program or CALLed from CL.

I'm not aware of a better way in the long run.

Tom Liotta

midrange-l-request@midrange.com wrote:

>   7. Gettting the IP address (Rob Phillips)
>
>HI Is there a command or way to get the IP address of a machine? Can this be 
>done in a CL also?

-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com


__________________________________________________________________
The NEW Netscape 7.0 browser is now available. Upgrade now! 
http://channels.netscape.com/ns/browsers/download.jsp 

Get your own FREE, personal Netscape Mail account today at 
http://webmail.netscape.com/