#!/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.
#------------------------------------------------------------------
if [ $err -eq 0 ]
then
   exit 0
elif [ $err -ge 1 -a $err -le 3 ]
then
   export warnSUBJ=J837
   export warnBODY="Non-critical error ${err} in step ${pgm}.  CHECK OUTPUT "
   exit 0
else
   export warnSUBJ=J837
   export warnBODY="CRITICAL error ${err} in step ${pgm}.  CHECK OUTPUT "
   exit $err
fi