#!/bin/ksh
#
perl -w $XTAB_HOME/bin/xtabpp.pl $1
if (($? != 0))
then
   return
fi
#
cat $XTAB_HOME/bin/xtab_common  > $1.pl
cat $1.ppo                     >> $1.pl
rm  $1.ppo
perl -w $1.pl |               tee $1.prn