#!/bin/sh 
#------------------------------------------------------------------
# SCRIPT TO REPORT CRITICAL AND NON_CRITICAL ERRORS  (Stokes)
#   This script was added so that err_chk would not kill job
#   due to non-critical fortran exit values 1 thru 3.
#   llsubmit'd job sends warning msg.
#   return err value of 0 back to parent for non-critical errors
#   return true err value for critical errors.
#------------------------------------------------------------------

export USHutil=/nwprod/util/ush

echo ${warnBODY:=""}  > /dev/null
echo ${warnSUBJ:=""}  > /dev/null
echo ${job:="some_IBM_job"}  > /dev/null
echo ${pgm:=""}  > /dev/null
echo ${err:=""}  > /dev/null

[ -z "$warnSUBJ" ] && export warnSUBJ="Warning_from_${job}"

if [ $err -eq 0 ]
then
   exit 0
elif [ $err -ge 1 -a $err -le 3 ]
then
   [ -z "$warnBODY" ] && export warnBODY="Non-critical error ${err} in step ${pgm}.  CHECK OUTPUT "
   exit 0
else
   [ -z "$warnBODY" ] && export warnBODY="CRITICAL error ${err} in step ${pgm}.  CHECK OUTPUT "
   exit $err
fi