From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- pkg/utilities/nttools/stxtools/errxit.x | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 pkg/utilities/nttools/stxtools/errxit.x (limited to 'pkg/utilities/nttools/stxtools/errxit.x') diff --git a/pkg/utilities/nttools/stxtools/errxit.x b/pkg/utilities/nttools/stxtools/errxit.x new file mode 100644 index 00000000..45b5a7a3 --- /dev/null +++ b/pkg/utilities/nttools/stxtools/errxit.x @@ -0,0 +1,30 @@ +# ERRXIT -- Take an error exit and set the error code + +# This error exit routine is used on VMS system. The VMS symbol $status +# will be set to the exit_code, so that the process running this program +# will know the error condition that terminated the program. In order +# to avoid conflict with other VMS exit codes, it would be best if the +# exit_code is set to an odd value greater than one. +# +# Nelson Zarate 30-Nov-95 original +# Perry Greenfield 18-Apr-95 change exit code from 122 to 2 +# so that misleading DCL error message +# is not given (severity level remains +# the same: 2 --> ERROR). 122 results +# in a "DEVICE NOT MOUNTED" message. + +procedure errxit (exit_code) + +int exit_code +#-- + +begin + # Reset the exit code to a constant value for this routine that + # will be called on a VMS system. Other system will run the + # errxit.c that lives in tables$lib/stxtools/errxit.c to be inserted + # at compilation time by mkpkg.sf.. + # NZ Nov 30 1995 + exit_code = 2 + + call exit (exit_code) +end -- cgit