for cata in ngc ic anon ; do
  case $cata in
   ngc) code=2 ;;
   ic)  code=3 ;;
  esac
  
  cd $BDA/$cata
  for i in *
  do
  cd $BDA/$cata/$i
  if test -f $1.Z || test -f $1
  then
  case $cata in
  ngc|ic) kode=$code$i
          zex $1 | awkodi $kode >> $BDA/catalogue/$1 ;;
  anon) kode=`echo $i | sed -f $BDA/bin/coding` 
        zex $1 | awkoda $kode >> $BDA/catalogue/$1 ;;
  esac
  echo $i $kode
  fi
  done
done