J$NETADDRESS
The J$NETADDRESS library routine retrieves the name and the IP address of the computer where this routine is executed.
Syntax:
 CALL "J$NETADDRESS" USING computerName 
                           computerIpAddress
Parameters:
computerName
PIC X(n)
Receives the name of the computer where this routine has been executed.[*]
computerIpAddress
PIC X(n)
Receives the IP address of the computer where this routine has been executed.[*]
[*] A computer may have multiple IPs and multiple alias name for the same IP too, so you might not receive the expected IP and name. Usually a safe method to get the desired information is to change the hosts configuration file (/etc/hosts on Linux/Unix, %SystemRoot%\System32\drivers\etc\hosts on Windows) appropriately.
Examples:
Example - Get the current computer name and ip address
*> define arguments as pic x(n)
CALL "J$NETADDRESS" USING comp-Name comp-IpAddress