# seterr --- set the error return code

   subroutine seterr (stat)
   integer stat

   include SWT_COMMON

   Cmd_stat = stat

   return
   end