/* REXX    TCPINFO    Shows several otherwise-hard-to-get datapoints.  */
CLEAR
SYSENV    = SYSVAR('SYSENV')
VERS      = SOCKET('VERSION')
INIT      = SOCKET('INITIALISE','TCPINFO')
/* SAVE INIT RESULTS */
PARSE VAR INIT INIT_RC SUBTASKID MAXDESC SERVICE

HOSTID    = SOCKET('GETHOSTID')
HOSTNAME  = SOCKET('GETHOSTNAME')
DOMAIN    = SOCKET('GETDOMAINNAME')
TERM      = SOCKET('TERMINATE')
/* PARSE  ======>  ==========> ======>  */
PARSE VAR HOSTID   RETURN_CODE TCPADDR
PARSE VAR HOSTNAME RETURN_CODE TCPNAME
PARSE VAR DOMAIN   RETURN_CODE TCPDOMAIN

FULLNAME = TCPNAME'.'TCPDOMAIN

if SYSENV = 'FORE' then 'CLEAR'

SAY SYSENV
SAY 'HOST ADDR   =' TCPADDR
SAY 'HOST NAME   =' TCPNAME
SAY 'DOMAIN      =' TCPDOMAIN
SAY 'FULL NAME   =' FULLNAME

IF SYSENV = 'BACK' THEN DO
SAY 'RETURN CODE =' INIT_RC
END

EXIT INIT_RC