SWPERRMAJ
------------------------------------------------------------------------------

  Function : Get the swap system major error code

  Syntax   : niValue = SWPERRMAJ()

  Return   : Swap system major error code

  If an error occurs during the swap process, the SWPRUNCMD() function
  will return false. This function returns the major error code,
  indicating the type of error that occurred.

  Example  :
  success = SWPRUNCMD("Compile myprog -m",0,"","")
  IF .NOT. success
      ? "Swap failed..."
      ? "Major Error Number ",SWPERRMAJ()
      ? "Minor Error Number ",SWPERRMIN()
  ELSE
      err_lev = SWPERRLEV()
      IF err_lev = 0
          SWPRUNCMD("BLINKER @myscr",0,"","")
      ELSE
          ?"Compile failed - errorlevel ",err_lev
      ENDIF
  ENDIF