C*ホスト名検索------------------------------------------*
C CALL 'SKGETH'
C PARM HOSTNM128
C PARM RC 1
C PARM IPSTR 15
C PARM IPHOST128
C*------------------------------------------------------*