blob: 45b5a7a3e098a5f9be16c6bb9b34c4817dd63ec0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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
|
