Re: How can I retrieve the TCP/IP host name?

You mean server.domain.com, right? You wouldn't have an '@' sign in
the FQDN. If you do this:

PGM (&DEBUG &HOSTNAME)
DCL VAR(&DEBUG) TYPE(*CHAR) LEN(1)
DCL VAR(&HOSTNAME) TYPE(*CHAR) LEN(100)
DCL VAR(&LEN) TYPE(*INT) LEN(4) VALUE(100)
DCL VAR(&RC) TYPE(*INT) LEN(4)
DCL VAR(&X) TYPE(*INT) LEN(4)
DCL VAR(&X00) TYPE(*CHAR) LEN(1) VALUE(x'00')


/* Get Host Name */

CALLPRC PRC('gethostname') PARM((&HOSTNAME *BYREF) +
(&LEN *BYVAL)) +
RTNVAL(&RC)

You'll get the FQDN. Look for the first dot...then you know the server
name. I stole this code from somewhere and it works.

On Tue, Jul 17, 2012 at 1:30 PM, Darryl Freinkel
<dfreinkel@xxxxxxxxxxxxxxxxx> wrote:

Can anyone help with how I could retrieve the non-fully qualified host name
of a system? I am trying to retrieve the systems IP host name example
server1 and not server1@xxxxxxxxxx.



TIA

Darryl Freinkel | Assignment 400 Group, Inc.



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.