gm2-libs-pim/ErrorCode

DEFINITION MODULE ErrorCode ;

EXPORT QUALIFIED SetErrorCode, GetErrorCode, ExitToOS ;

(*
   SetErrorCode - sets the exit value which will be used if
                  the application terminates normally.
*)

SetErrorCode
PROCEDURE SetErrorCode (value: INTEGER) ;

(*
   GetErrorCode - returns the current value to be used upon
                  application termination.
*)

GetErrorCode
PROCEDURE GetErrorCode (VAR value: INTEGER) ;

(*
   ExitToOS - terminate the application and exit returning
              the last value set by SetErrorCode to the OS.
*)

ExitToOS
PROCEDURE ExitToOS ;

END ErrorCode.