Moin,

vieleicht etwas kompatibler:

d P_Host S 128A

d inet_addr PR 10U 0 ExtProc('inet_addr')
d address_str * value options(*string)

d INADDR_NONE C CONST(4294967295)

d inet_ntoa PR * ExtProc('inet_ntoa')
d internet_addr 10U 0 value

d p_hostent S *
d hostent DS Based(p_hostent)
d h_name *
d h_aliases *
d h_addrtype 10I 0
d h_length 10I 0
d h_addr_list *
d p_h_addr S * Based(h_addr_list)
d h_addr S 10U 0 Based(p_h_addr)

d gethostbyname PR * extproc('gethostbyname')
d host_name * value options(*string)

D IP S 10U 0

P_Host = 'www.web.de ' ;
IP = inet_addr(%trim(P_host)) ;

If IP = INADDR_NONE ;
p_hostent = gethostbyname(%trim(P_host)) ;
If p_hostent <> *NULL ;
IP = h_addr ;
EndIf ;
EndIf ;

If IP = INADDR_NONE ;
// Fehler
Else ;
// Kein Fehler
EndIf ;
*InLr = *On ;

mfg

DKSPROFI