      function ip2bin(s)
*
*
*
*
*
*
*
*
*
$catalog local
*
      res = char(field(s,'.',1)) : char(field(s,'.',2)) : char(field(s,'.',3)) : char(field(s,'.',4))

      return(res)
   end
