direc()
{
repo=$dir_listado/repo$JOBNOM
fec=$(date +%d%m%y)_$(date +%H%M)
echo $fec >> $repo
if  [ -s /ope/TRAN/f1_$JOBNOM ]
then f1=$(cat /ope/TRAN/f1_$JOBNOM)
     rm /ope/TRAN/f1_$JOBNOM
     if  [ -s /ope/TRAN/f2_$JOBNOM ]
     then f2=$(cat /ope/TRAN/f2_$JOBNOM)
     rm /ope/TRAN/f2_$JOBNOM
     if  [ -s /ope/TRAN/f3_$JOBNOM ]
     then f3=$(cat /ope/TRAN/f3_$JOBNOM)
     rm /ope/TRAN/f3_$JOBNOM
     fi
     fi
else direc1
fi
}
# ##################################################################
calfec()
{
#--------------------------------------------------------------------------
# f1
dia1=$(echo $f1 | cut -c 1-2)
mes1=$(echo $f1 | cut -c 3-4)
mesx=$(echo $f1 | cut -c4)
case $mes1 in
10 ) mesh=A;;
11 ) mesh=B;;
12 ) mesh=C;;
*  ) mesh=$(echo $mesx)
esac
ano1=$(echo $f1 | cut -c 7-8)
ANO1=$(echo $f1 | cut -c 5-8)
yea1=$(echo $f1 | cut -c 8-8)
mer1=$(echo $f1 | cut -c 4-4)
fec11=$dia1$mes1       #fec11 es la fecha de parafecha f1 con formato ddmm
fec12=$mes1$dia1       #fec12 es la fecha de parafecha f1 con formato mmdd
fec13=$dia1$mes1$ano1  #fec13 es la fecha de parafecha f1 con formato ddmmyy
fec14=$ano1$mes1$dia1  #fec14 es la fecha de parafecha f1 con formato yymmdd
fec15=$dia1$mes1$yea1  #fec15 es la fecha de parafecha f1 con formato ddmmy
fec16=$ANO1$mes1$dia1  #fec16 es la fecha de parafecha f1 con formato yyyymmdd
fec17=$mes1$ano1       #fec17 es la fecha de parafecha f1 con formato mmyy
fec18=$mes1$ANO1       #fec18 es la fecha de parafecha f1 con formato mmyyyy
fec19=$ano1$mes1       #fec19 es la fecha de parafecha f1 con formato yymm
fec1A=$ANO1$mes1       #fec1A es la fecha de parafecha f1 con formato yyyymm
fec1B=$mes1$yea1       #fec1B es la fecha de parafecha f1 con formato mmy
fec1C=$mer1$dia1       #fec1C es la fecha de parafecha f1 con formato mdd
fec1D=$yea1            #fec1D es la fecha de parafecha f1 con formato y
fec1E=${dia1}-${mes1}-${ANO1} #fec1E es la fecha f1 con formato dd-mm-yyyy
fec1H=$mesh$dia1
fec1I=$ANO1            #fec1I es la fecha de parafecha f1 con formato yyyy
fec1F=${ANO1}-${mes1} #fec1F es la fecha f1 con formato yyyy-mm
fec1M=$dia1$mes1$ANO1  #fec1M es la fecha de parafecha f1 con formato ddmmyyyy
fec1K=$mes1            #fec1K es la fecha de parafecha f1 con formato mm
fec1Q=$ano1            #fec1Q es la fecha de parafecha f1 con formato yy
#--------------------------------------------------------------------------
# f2
dia2=$(echo $f2 | cut -c 1-2)
mes2=$(echo $f2 | cut -c 3-4)
ano2=$(echo $f2 | cut -c 7-8)
ANO2=$(echo $f2 | cut -c 5-8)
yea2=$(echo $f2 | cut -c 8-8)
mer2=$(echo $f2 | cut -c 4-4)
fec21=$dia2$mes2       #fec21 es la fecha de parafecha f2 con formato ddmm
fec22=$mes2$dia2       #fec22 es la fecha de parafecha f2 con formato mmdd
fec23=$dia2$mes2$ano2  #fec23 es la fecha de parafecha f2 con formato ddmmyy
fec24=$ano2$mes2$dia2  #fec24 es la fecha de parafecha f2 con formato yymmdd
fec25=$dia2$mes2$yea2  #fec25 es la fecha de parafecha f2 con formato ddmmy
fec26=$ANO2$mes2$dia2  #fec26 es la fecha de parafecha f2 con formato yyyymmdd
fec27=$mes2$ano2       #fec27 es la fecha de parafecha f2 con formato mmyy
fec28=$mes2$ANO2       #fec28 es la fecha de parafecha f2 con formato mmyyyy
fec29=$ano2$mes2       #fec29 es la fecha de parafecha f2 con formato yymm
fec2A=$ANO2$mes2       #fec2A es la fecha de parafecha f2 con formato yyyymm
fec2B=$mes2$yea2       #fec2B es la fecha de parafecha f2 con formato mmy
fec2C=$mer2$dia2       #fec2C es la fecha de parafecha f2 con formato mdd
fec2D=$yea2            #fec2D es la fecha de parafecha f2 con formato y
fec2E=${dia2}-${mes2}-${ANO2} #fec2E es la fecha f2 con formato dd-mm-yyyy
fec2M=$dia2$mes2$ANO2  #fec1M es la fecha de parafecha f2 con formato ddmmyyyy
#--------------------------------------------------------------------------
}
# ##################################################################
tran()
{
echo "***********************************************" >>$repo
echo "$JOBNOM  TRAN $(date)" >>$repo
# SE TRANSFIEREN ARCHIVOS A LOS SERVER DEL USUARIO
cd $dir_transfi
if [ -a $1 ]
then echo "$1 TRANSFERENCIAS  $(date)" >>$repo
     echo "TRANSFER de $1 a $server $destino" >>$repo
     # LLamo a funcion que transfiere al FS Windows
     trans_windows $1
     if [ $(/usr/sbin/ping -c 1 $server   |echo $?) -eq 0 ]
        then ftptest $server $usuar $clave
          if [ $? -eq 0 ]
            then echo "Ftp $server activo. Continuando operaciones"
                 transfi $1 $2
                 # if [ $dir_transfi = /doc1/in ]
                 #   then  mv $1 /doc1/done/.
                 #fi
            else echo "NO SE TRANSFIRIO $1 . $server CON PROBLEMAS" >>$repo
                 echo "NO SE TRANSFIRIO $1 . $server CON PROBLEMAS"
                 TEX="FALLO TRANSFERENCIA DE $JOBNOM"
                 echo |  mail -s "$TEX" produccion@lacaja.com
                 exit
          fi
      fi
else echo "NO EXISTE $1 O TIENE 0 BYTES" >>$repo
     echo "NO EXISTE $1 O TIENE 0 BYTES"
fi

}
# ##################################################################
trans_windows(){
  echo "$JOBNOM Prueba Transferencia a Windows $(date)" >> $repo
  # $1 es la carpeta donde estan los archivos
  cp $1* /u01/tronador/intercambio_produc/Produc/prueba/

  if ! [ $? -eq 0]
  then
    echo "Fallo la transferencia de prueba al Windows" >> $repo
    echo "Fallo la transferencia de prueba al Windows"
    TEX="Fallo la transferencia de prueba al Windows"
    echo |  mail -s "$TEX" produccion@lacaja.com
    exit
  fi
}

####################################################################
ftptest()
{
# SE TESTEA QUE EXISTA CONEXION DE FTP CON EL SERVER
FECHAtest=$(date +%d%h%H%M)
site=$1
rm /ope/ftp/$site.ctl 2>/dev/null
touch /ope/ftp/$site.ctl
 (
    echo "user $2 $3"
    echo bye
 ) | ftp -in $site >>/ope/ftp/$site.ctl 2>>/ope/ftp/$site.ctl
if [ -s /ope/ftp/$site.ctl ]
   then cat /ftp/$site.ctl >>/ope/ftp/log/failconnect$FECHAtest.log
        echo "Fallo conneccion a $site"
        return 1
   else return 0
fi
}
# #########################################################################
transfi()
{
   # cambio nombre de $destino
     destino=$(echo $destino | tr 'A-Z' 'a-z')
     file2transf=$1.$$
   # Copio y opero con la copia
     cp $1 $file2transf
   if [ -z "$trantype" -o "$trantype" = "dos" ]
      then # Arreglo para agregar CR a los archivos
             /usr/local/bin/unix2dos $file2transf
   fi
#SE HACE LA TRANSFERENCIA DEL ARCHIVO AL SERVER
   sleep 2
   echo "*** Conectandose al $destino ***"
   (
   echo "user $usuar $clave"
   echo cd $destino
   echo bin
   echo put $file2transf $2
   echo dir $2
   echo quit
   ) | ftp -in $server
   echo "*** Conectandose al $destino ***"
   (
   echo "user $usuar $clave"
   echo cd $destino
   echo dir $2
   echo quit
   ) | ftp -in $server>>$repo
   rm $file2transf
}
# ############################################################################
CORREO()
{
if [ -s $dir_transfi/LIS$JOBNOM ]
then
for i in $LIScorreo
do
TEXTOUSU="TRANSFERENCIA DE ARCHIVOS"
cat $dir_texto/mensaje1               >> $dir_texto/mensaje_$JOBNOM
echo "JOB $JOBNOM"                    >> $dir_texto/mensaje_$JOBNOM
echo "server $server"                 >> $dir_texto/mensaje_$JOBNOM
echo "destino $destino"               >> $dir_texto/mensaje_$JOBNOM
echo "archivos:"                      >> $dir_texto/mensaje_$JOBNOM
echo "$(cat $dir_transfi/LIS$JOBNOM)" >> $dir_texto/mensaje_$JOBNOM
cat $dir_texto/mensaje2               >> $dir_texto/mensaje_$JOBNOM
cat $dir_texto/mensaje_$JOBNOM | mail -s "${TEXTOUSU}" $i
rm -f $dir_texto/mensaje_$JOBNOM
done
rm -f $dir_transfi/LIS$JOBNOM
else echo "NO HAY ARCHIVOS PARA TRANSFERIR"
echo "NO HAY ARCHIVOS PARA TRANSFERIR" >>$repo
fi
}
# ############################################################################
dir_listado=/u01/tronador/listado
dir_transfi=/u01/tronador/batch
dir_texto=/u01/tronador/rutina/texto
server=lcv101v3
usuar="produccion"
clave=$(cat /ope/novel)
CORREOPRO=produccion@lacaja.com
#--------------------------------------------------------------------------
leofechas