Initial commit

1 files changed, 30 insertions, 0 deletions

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