Comments on: Retreiving host name

By: tomliotta

tomliotta — Sat, 27 Nov 2010 05:16:11 +0000

The problem calling this from a CL program is that CL can not pass an “int” parameter until V5R3.

CL has been able to pass “int” parameters almost from the beginning. It just couldn’t pass “*INT” parameters. There’s a difference.

To study the difference, use this to define the &SIZE variable:

 DCL        VAR(&SIZE) TYPE(*CHAR) LEN(4) VALUE(X'00000020')

A 4-byte *CHAR variable can be assigned hexadecimal values. A 4-byte *INT variable holds x’00000020′ when the integer value is (32), so that’s the hex value to assign.

To handle numeric value changes in *CHAR variables, use the %BIN() built-in function.

Tom

By: ayahel1

ayahel1 — Thu, 20 Jul 2006 09:40:00 +0000

If you need the TCP/IP host name you can try to use the C function gethostname(name, size).
The problem calling this from a CL program is that CL can not pass an “int” parameter until V5R3.
With V5R3 and above, you can. Try this:
PGM
DCL VAR(&NAME) TYPE(*CHAR) LEN(33)
DCL VAR(&SIZE) TYPE(*INT) LEN(4) VALUE(32)

CALLPRC PRC(‘gethostname’) PARM((&NAME) (&SIZE *BYVAL))

SNDPGMMSG MSG(‘Host name = ‘ || &NAME)
ENDPGM

By: ayahel1

ayahel1 — Thu, 20 Jul 2006 09:33:49 +0000

CALLPRC PRC(‘gethostname’) PARM((&NAME) (&SIZE *BYVAL))

SNDPGMMSG MSG(‘Host name = ‘ || &NAME)
ENDPGM

By: vatchy

vatchy — Thu, 20 Jul 2006 07:56:51 +0000

Alternatively, you could retrieve the system value QSRLNBR to get the system’s serial number. On two systems, the system names could possibly be the same but the serial numbers should be unique.