exit_test (version 0.0)

• the description page for this routine
• the top level processing calling tree

#! /usr/bin/ksh

###########################################################################
#
# 
# SYNTAX: exit_test code caller level message
#
# DESCRIPTION: Check a generic routine for errors.
#
# VERSION: 0.0
#
# HISTORY:
#
##############################################################################

code=$1
caller=$2
level=$3
message=$4

if [ -n "$DEBUG" ]; then
     echo "$0: code=$code"
     echo "$0: caller=$caller"
     echo "$0: level=$level"
     echo "$0: message=$message"
fi



if [ $code -ne 0 ]; then
     ###################
     # there is an error
     ###################
     $UTIL/exception $caller $level \
     "${message} Exit code=$code"

fi



exit $code