#!/usr/bin/ksh
#********************************************************************
#
# Änderungen mit ? absprechen
#
echo "SKELETON IGES on client `hostname`"
umask 137
#
#********************************************************************
# SKELETON-PARAMETER :
# --------------------
# JOBNAME  : CAXdbb
# DISPLAY  : cad520:0.0
# --------------------
# CURLIC   : vpm3d
# CURDEC   : master
# CURPRJ   : mro
# CURRIF   : v4r2m2p0
# --------------------
# PRJ      : 
# GRP      : catiamst
# USR      : dbb
# ACCT     : 00000001
# PWD      : XXXXXXXX
# --------------------
# FILE     : CATIA.DBB.MAP
# MODELL   : ?
# IDENTDSN : PUNKTETEST
# --------------------
# IDENT    : D020731.T121211.dbb
#********************************************************************

WKDIR=/tmp/D020731.T121211.dbb
cd $WKDIR

integer RC_JOB
RC_JOB=0
integer RC_CPY
RC_CPY=-1
integer RC_CLN
RC_CLN=-1
integer RC_MOD2
RC_MOD2=-1
integer RC_MODA
RC_MODA=-1
integer RC_MODB
RC_MODB=-1
integer RC_IIF
RC_IIF=-1
integer RC_IGE
RC_IGE=-1
integer RC_SND
RC_SND=-1
echo "ReturnCode="$RC_JOB

[ "vpm3d" != "&""CURLIC." ] && export CURLIC=vpm3d
[ "master" != "&""CURDEC." ] && export CURDEC=master
[ "mro" != "&""CURPRJ." ] && export CURPRJ=mro
[ "v4r2m2p0" != "&""CURRIF." ] && export CURRIF=v4r2m2p0
. $CAT_ENV
echo "CATIA-Umgebung:"$CATIA
echo "  LIC:"$CURLIC" DEC:"$CURDEC" PRJ:"$CURPRJ" RIF:"$CURRIF
#--------------------------------------------------------------------
# MODELL ALS TEMP. MODELL NACH CATIA.TRANSFER.MAP UMKOPIEREN
#--------------------------------------------------------------------
if [ $RC_JOB -eq 0 ]
then
#  cat                        << EOF     > ft05f001.CATDATA
#*READ     CATIA.DBB.MAP MODEL
#*WRITE    CATIA.TRANSFER.MAP MODEL
#/
#*MOD_OLD
#PUNKTETEST
#*MOD_NEW
#CAXdbb CATIA.TRANSEND.IGES.D020731.T121211.dbb.PUNKTETEST
#*REP      YES
#*DUP
#/
#EOF
#  catutil -l catdata -x ft05f001.CATDATA -o ft06f001.CATDATA

  # Parameter für copy Vorbereiten
  DLN1="CATIA.DBB.MAP"
  DIR1=`catpath -l -A catia.model | grep $DLN1 | awk '{print $3}'`
  MOD1="PUNKTETEST"
  FIL1=`echo "$MOD1" | sed -e 's/ /±/g' | sed -e 's/\//´/g'`".model"
  DLN2="CATIA.TRANSFER.MAP"
  DIR2=`catpath -l -A catia.model | grep $DLN2 | awk '{print $3}'`
# MOD2="CAXdbb CATIA.TRANSEND.IGES.D020731.T121211.dbb.PUNKTETEST"
  MOD2=`echo "CAXdbb CATIA.TRANSEND.IGES.D020731.T121211.dbb.PUNKTETEST" |\
        tr ' !§$%/\\?><"&()=@+*~-_:;,|' '..........................' |\
        tr "[:lower:]" "[:upper:]"`
  FIL2=`echo "$MOD2" | sed -e 's/ /±/g' | sed -e 's/\//´/g'`".model"
  # Kopie erzeugen
  echo "cp ..."
  echo "  $DIR1/$FIL1"
  echo "  $DIR2/$FIL2"
  if [ -f $DIR1/$FIL1 -a -d $DIR2 ]
  then
    cp $DIR1/$FIL1 $DIR2/$FIL2
    RC_CPY=$?
  else
    RC_CPY=99
  fi
  RC_CPY=$?
  RC_JOB=$RC_JOB+$RC_CPY
fi
echo "ReturnCode="$RC_JOB

#--------------------------------------------------------------------
# CATCLN AUF DAS MODELL
#--------------------------------------------------------------------
if [ $RC_JOB -eq 0 ]
then
  cat                        << EOF     > ft05f001.CATCLN
*READ     CATIA.TRANSFER.MAP MODEL
*WRITE    CATIA.TRANSFER.MAP MODEL
/
*MOD
 $MOD2
/CAXdbb CATIA.TRANSEND.IGES.D020731.T121211.dbb.PUNKTETEST
*REP      YES
*ACT
*RUN
/
EOF
  catutil -l catcln -x ft05f001.CATCLN -o ft06f001.CATCLN
  RC_CLN=$?
  RC_JOB=$RC_JOB+$RC_CLN
  echo "ReturnCode="$RC_JOB
fi

#--------------------------------------------------------------------
# NC-SETS UND KINEMATIC-MECHANISMEN LÖSCHEN
#--------------------------------------------------------------------
if [ $RC_JOB -eq 0 ]
then
  cat                        << EOF     > ft05f001.CATMOD2
*PRJ      BATCH
*GRP      catiamst
*USR      dbb
*ACCT     00000001
*PWD      XXXXXXXX
/
*DSN      CATIA.TRANSFER.MAP
*MOD
*$MOD2
/CAXdbb CATIA.TRANSEND.IGES.D020731.T121211.dbb.PUNKTETEST
/
*KIN
/
EOF
  export CATLICA='CATMOD2'        # Lizenzdeklarationen zum Löschen von NC-Sets
# /var/mro/load/CATMOD2 < ft05f001.CATMOD2 > ft06f001.CATMOD2
  $V4_MROXX/load/CATMOD2 < ft05f001.CATMOD2 > ft06f001.CATMOD2
  . getrc
  RC_MOD2=$rc
  RC_JOB=$RC_JOB+$RC_MOD2
  export CATLICA=''                        # Lizenzdeklarationen zurücksetzen
fi
echo "ReturnCode="$RC_JOB

#--------------------------------------------------------------------
# SYMBOLS/DETAILS DROPPEN,EXPLODEN,LÖSCHEN (bis erste Ebene)
#--------------------------------------------------------------------
if [ $RC_JOB -eq 0 ]
then
  integer INDEX
  INDEX=`catpath -l CATIA.MODEL_KBYTES.MAX_ACTIVE_INDEX`
# INDEX=$INDEX+5000        # Kulanz temp. Elemente
  integer DATA
  DATA=`catpath -l CATIA.MODEL_KBYTES.MAX_ACTIVE_DATA`
# DATA=$DATA+5000        # Kulanz temp. Elemente
  cat                        << EOF     > ft05f001.CATMODA
*READ     CATIA.TRANSFER.MAP MODEL
*WRITE    CATIA.TRANSFER.MAP MODEL
*REP      YES
*MSGLEVEL ERROR
*LINDEX   $INDEX
*LDATA    $DATA
*MODEL
 $MOD2
/CAXdbb CATIA.TRANSEND.IGES.D020731.T121211.dbb.PUNKTETEST
/
*CATMOD  *
/
*FUNCTION SYMBOL MANAGE DROP
*RUNFNC
*FUNCTION DETAIL MANAGE DROP
*RUNFNC
*FUNCTION SYMBOL EXPLODE
*RUNFNC
*FUNCTION SYMBOL DELETE UNUSED
*RUNFNC
*FUNCTION DETAIL EXPLODE
*NESTING  1
*RUNFNC
*FUNCTION DETAIL DELETE UNUSED
*RUNFNC
/
*ENDMOD
*RUN
/
EOF
  catutil -l catmod -x ft05f001.CATMODA -o ft06f001.CATMODA
  RC_MODA=$?
  [ $RC_MODA -gt 4 ] && RC_JOB=$RC_JOB+$RC_MODA
fi
echo "ReturnCode="$RC_JOB

#--------------------------------------------------------------------
# SYMBOLS/DETAILS DROPPEN,EXPLODEN,LÖSCHEN
# LÖSCHEN VON GEOMETRIE
#--------------------------------------------------------------------
if [ $RC_JOB -eq 0 ]
then
  integer INDEX
  INDEX=`catpath -l CATIA.MODEL_KBYTES.MAX_ACTIVE_INDEX`
# INDEX=$INDEX+5000        # Kulanz temp. Elemente
  integer DATA
  DATA=`catpath -l CATIA.MODEL_KBYTES.MAX_ACTIVE_DATA`
# DATA=$DATA+5000        # Kulanz temp. Elemente
  cat                        << EOF     > ft05f001.CATMODB
*READ     CATIA.TRANSFER.MAP MODEL
*WRITE    CATIA.TRANSFER.MAP MODEL
*REP      YES
*MSGLEVEL ERROR
*LINDEX   $INDEX
*LDATA    $DATA
*MODEL
 $MOD2
/CAXdbb CATIA.TRANSEND.IGES.D020731.T121211.dbb.PUNKTETEST
/
*CATMOD  *
/
*FUNCTION SYMBOL MANAGE DROP
*RUNFNC
*FUNCTION DETAIL MANAGE DROP
*RUNFNC
*FUNCTION SYMBOL EXPLODE
*RUNFNC
*FUNCTION SYMBOL DELETE UNUSED
*RUNFNC
*FUNCTION DETAIL EXPLODE
*NESTING  -1
*RUNFNC
*FUNCTION DETAIL DELETE UNUSED
*RUNFNC
/ *FUNCTION ERASE
/ *SELECT   *SPC
/ *SELECT   *DRW + *SPC - *SOL

/ *FAMILY
/ *RUNFNC
*FUNCTION ERASE
*SELECT   *CND + *GDLN + *GDPT + *LST +*OCND + *STRD
*RUNFNC
*FUNCTION TEXT ISOLATE
*RUNFNC
*FUNCTION TEXT EXPLODE
*RUNFNC
*FUNCTION CURVE APPROXIM
*CONICS   HYP PAR ELL
*DEGREE   3
*RUNFNC
*FUNCTION AUXVIEW TRANSFER
*SNGLVIEW SCALED
*RUNFNC
/
*ENDMOD
*RUN
/
EOF
  catutil -l catmod -x ft05f001.CATMODB -o ft06f001.CATMODB
  RC_MODB=$?
  [ $RC_MODB -gt 4 ] && RC_JOB=$RC_JOB+$RC_MODB
fi
echo "ReturnCode="$RC_JOB

#--------------------------------------------------------------------
# STEP1 - CATIGE :  CATIA TO IIF EXCHANGE PHASE
#--------------------------------------------------------------------
if [ $RC_JOB -eq 0 ]
then
  cat                        << EOF     > ft05f001.CATIGE
*FIRM     MAN ROLAND DRUCKMASCHINEN AG
*AUTHOR   dbb
/ *SENDER   TRANSFER-PROGRAMM (IGES)
/ *RECEIVER XXXXXXXXXXXX
/ *MSGLEVEL WARN
*MESSAGE  CATIA -> IGES  DATENTRANSFER
*MESSAGE  PUNKTETEST
*MESSAGE  CAXdbb CATIA.TRANSEND.IGES.D020731.T121211.dbb.PUNKTETEST
/
*READ     CATIA.TRANSFER.MAP MODEL
*MODEL
 $MOD2
/CAXdbb CATIA.TRANSEND.IGES.D020731.T121211.dbb.PUNKTETEST
*IIF      CAXdbb.iif
/ Achtung: Werte aus catia.model_kbytes.max_active_index bzw. -data übernehmen
/ *RINDEX   12000
/ *RINDEX   5000
*RINDEX   30000
/ *RDATA    24000
*RDATA    45000
*IVR V5.1
*IGESSTD  REDUCED
*CAN B-SPLINE
*CON B-SPLINE
*SPL B-SPLINE
*STD NONE
*RUN
/
EOF
  catutil -l catige -x ft05f001.CATIGE -o ft06f001.CATIGE
  RC_IIF=$?
  RC_JOB=$RC_JOB+$RC_IIF
fi
echo "ReturnCode="$RC_JOB

#--------------------------------------------------------------------
# STEP2 - igesp : IIF TO IGES EDITOR PHASE
#--------------------------------------------------------------------
if [ $RC_JOB -eq 0 ]
then
  cat                        << EOF     > ft05f001.igesp
MAXERR 99
IBMPRP YES
SIGFIG CORD 14
SIGFIG COEF 14
EOF
  igesp -c -f ft05f001.igesp CAXdbb.iif > ft06f001.igesp
  RC_IGE=$rc
  RC_JOB=$RC_JOB+$RC_IGE
fi
echo "ReturnCode="$RC_JOB

#--------------------------------------------------------------------
# File versenden
#--------------------------------------------------------------------
if [ $RC_JOB -eq 0 ]
then
# cp -p CAXdbb.iges /tausch/transfer/send/IGES/PUNKTETEST
# cp -p CAXdbb.iges /tausch/trsend/IGES/PUNKTETEST
  cp -p CAXdbb.iges /tausch/trsend/IGES/PUNKTETEST.igs
# lp -d HOSTHPGL CAXdbb.iges
  echo CATIA.TRANSEND.IGES.PUNKTETEST > CAXdbb.ctl
# lp -d HOSTMRO1 CAXdbb.ctl CAXdbb.iges
  RC_SND=$?
  RC_JOB=$RC_JOB+$RC_SND
fi
echo "ReturnCode="$RC_JOB

echo "CATCPY  :"$RC_CPY
echo "CATCLN  :"$RC_CLN
echo "CATMOD2 :"$RC_MOD2
echo "CATMODa :"$RC_MODA
echo "CATMODb :"$RC_MODB
echo "CATIGE  :"$RC_IIF
echo "igesp   :"$RC_IGE
echo "lp      :"$RC_SND

mv $WKDIR* $WKDIR.TRANSFER.PUNKTETEST
beep; beep