      subroutine csub.errno
*
*
*
*
*
*
*
*
*
$catalog local
*
$include ccall.common
*
*
      s1 = cc$nul4
      s2 = CC$FN.ERRNO : cc$0 : ~
           CC$FN.EXIT

      s = ccall(s1,s2)

      cc$errno = bin2int(s[1,4])

      return
   end
