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

[Michael Ryan <michaelrtr@xxxxxxxxx>]

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.