      function hex2bin(s)
*
*
*
*
*
*
*
*
*
$catalog local
*
      res = ''
      for i = 1 to len(s) step 2
         res := char(iconv(s[i,2],'mx'))
      next i
*
      return(res)
   end
