#!/bin/ksh
 
#ce script recherche, dans le repertoire $dir, les fichiers marblRRxxxxxxx
#pour chacun des fichiers, une copie est creee
#
#la fin du nom du fichier source est reprise (tout ce qui est apres RR)
#le codemag est extrait du fichier source, de la ligne ***DEBcc
#
#la copie s''appelle marblccxxxxxxxx, et est exempte des lignes ***DEB et ***FIN
#apres la copie, le fichier d''origine est deplace dans le repertoire archive
bck=`pwd`
dir=/user/mbxrec/marche
 
cd $dir
 
for i in `ls marblRR*`; do
 
  exprDEB="^\*\*\*DEB..$"
  exprFIN="^\*\*\*FIN..$"
 
  ligne_deb=`grep -e "$exprDEB" $i`
  code_mag=`echo $ligne_deb | cut -b 7-8`
 
#  code_date=`date +%m%d%H%M%S`
  code_date=`echo $i | cut -b 8-`
 
  nom_fichier=marbl$code_mag$code_date
 
  grep -v -e "$exprDEB" -e "$exprFIN" $i > $nom_fichier
  #  echo \=\> nom_fichier = $nom_fichier
  mv $1 archive/
done
cd $bck