SWPERRMAJ()                   Get swap system major error code
------------------------------------------------------------------------------

 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 itself, the SWPRUNCMD()

 function will return false. SWPERRMAJ() returns the major error code,
 indicating the type of error that occurred.

 Example:

    * Attempt to swap out, compile and link a program
    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