#!/usr/bin/ksh
#############################################################
# Copyright 10 Aug 1995 Sun Microsystems, Inc. All Rights Reserved         
# Allan Jones - modified x25causes
# NP CTE fix for bug 4626559, entire file.
#############################################################
# This small ksh program turns out a cause code
# in a more easily understood message.
# It uses the file $X25LIBFILES/cause_dec to do this mapping
#

USAGE="Usage:\tx25cause cause\n\
\tcause: the cause code (hexa) to be decoded\n"

if [ $# = 0 ]
then
echo $USAGE
else

. /etc/snet_info

let number=16#$1
let cause=$number%256

echo ""
echo "Incoming codes from non Sun devices should be checked with manufacturer's docs"
echo ""
echo cause is $cause "(decimal), " $1 "(hexa) :"
echo ""

awk '{ if ($NF == cause) { print substr($0, 0, 74) } }' \
       cause=$cause   $X25LIBFILES/cause_dec

echo ""
fi
