#!/usr/bin/ksh
#!/usr/bin/perl
set -x
environment=rms
export environment
#. $AW_HOME/RETEK/exec/RETEK_ENVAR
ls -ltr $MMPOS/RTLOG* | tr -s " " | cut -d " " -f9 >$MMHOME/oracle/proc/bin/rtlogfiles.txt
x=`cat $MMHOME/oracle/proc/bin/rtlogfiles.txt | wc -l`
touch $MMHOME/oracle/proc/bin/prom.1
i=1
while[$x -ge $i]
do
  read LINE
  saimptlogi_running=1
  . $MMHOME/awbatch/refreshsql.sh saimptlogi
  echo $LINE
  mv $LINE $LINE.1
  Date=`date "+%m%d%y%n"`
 ./saimptlogi rms/rms52dev@rms $LINE.1 \
   $MMHOME/oracle/proc/bin/bad.1 $MMHOME/oracle/proc/bin/item.1 $MMHOME/oracle/proc/bin/waste.1 $MMHOME/oracle/proc/bin/ref_item.1 \
   $MMHOME/oracle/proc/bin/prim_variant.1 $MMHOME/oracle/proc/bin/varupc.1 $MMHOME/oracle/proc/bin/storeday.1 \
   $MMHOME/oracle/proc/bin/prom.1 $MMHOME/oracle/proc/bin/codes.1 $MMHOME/oracle/proc/bin/error.1 $MMHOME/oracle/proc/bin/ccval.1 \
   $MMHOME/oracle/proc/bin/storepos.1 $MMHOME/oracle/proc/bin/tendertype.1 $MMHOME/oracle/proc/bin/merchcodes.1 \
   $MMHOME/oracle/proc/bin/partner.1 $MMHOME/oracle/proc/bin/supplier.1 $MMHOME/oracle/proc/bin/employee.1 \
   $MMHOME/oracle/proc/bin/banner.1 $MMHOME/oracle/proc/bin/ref_mmrp.1 $MMHOME/oracle/proc/bin/igtax.1 \
 cd $MMHOME/log
 logfile=$(ls -ltr|tail -1|cut -c 55-70)
 if ! tail -2f $logfile | perl -ne '/saimptlogi/ && /PID=([0-9]+):/ && do { $pid{$1}++; exit 1 if ($pid{$1} >= 2)}'
 then
        echo "Started"
 fi
 i=`expr $i + 1`
done <$MMHOME/oracle/proc/bin/rtlogfiles.txt