      function bin2hex(s)
*
*
*
*
*
*
*
*
*
$catalog local
*
      res = ''
      for i = 1 to len(s)
         res := oconv(seq(s[i,1]),'mx') 'r%2'
      next i
*
      return(res)
   end
