#!/bin/ksh
#********************************************************************
#
echo "SKELETON JOBCARD"
#
#********************************************************************
# SKELETON-PARAMETER :
# --------------------
# DISPLAY  : cad520:0.0
# --------------------
# CURLIC   : vpm2d
# CURDEC   : vpmtest
# CURPRJ   : mro
# CURRIF   : v4r2m4h3
# --------------------
# JOBACCT  : 00000001
# JOBUSR   : dbb
# JOBCLS   : V
# --------------------
# PRJ      : 
# GRP      : catiamst
# USR      : dbb
# ACCT     : 00000001
# PWD      : ?
# --------------------
# JOBPGMR  : ........SHEET
# IDENT    : D050419.T151736.dbb
# --------------------
# FILE     : ?
# MODELID  : ?
# SHTFILE  : CATIA.SHT.SONDER.MAP
# SHT      : ?
# SPLFILE  : ?
# SPL      : ?
# --------------------
# SKAL     :  .905
echo SKAL : " .905"
# SKAL%    :  90.5
# COMMENTX : 
# COMMENTY : 
# COMMENTR : 
# COMMENT  :       dbb
# COPIES   : 01
# --------------------
# PARM0    : R001P396
# PARM1    : CLR
# PARM2    : YES
# PARM3    : HPNETH2
# PARM4    : HPNETT
# PARM5    : QL050
# PARM6    : DUMMY
# PARM7    : nobanner
# PARM8    : PARM8
# PARM9    : PARM9
# --------------------
# MENUON   : ?
# I        : 0000
# PLTR     : ?
# --------------------
# KNR      : .......
# SNR      : ..........
# SNR11    : ...........
# SNRCLN   : &SNRCLN.
# IND      : ...
# BEZ      : ......................
# AKZ      : BTSC
# EDA      : &EDA.
# SKZ      : &SKZ.
#********************************************************************
#current-directory fuer plotausgaben
WKDIR=/tmp/D050419.T151736.dbb
cd $WKDIR

#
# Input/Output - Dateien der Utilities
#
# CATPLOT Input
FT05_PLT=ft05f001.plt
# Input SHEET - Analyse
FT05_ANA=ft05f001.ana
# Ausgabe CATPLOT
# CATP_OUT=catplot.out
# Plotdatei
# PLOT_OUT=catout

integer RC_JOB
RC_JOB=0
integer RC_FT5
RC_FT5=-1
integer RC_SHT
RC_SHT=-1
integer RC_PLT
RC_PLT=-1
integer RC_SND
RC_SND=-1
echo "ReturnCode="$RC_JOB

[ "vpm2d" != "&""CURLIC." ] && export CURLIC=vpm2d
[ "vpmtest" != "&""CURDEC." ] && export CURDEC=vpmtest
[ "mro" != "&""CURPRJ." ] && export CURPRJ=mro
[ "v4r2m4h3" != "&""CURRIF." ] && export CURRIF=v4r2m4h3
[ "$CURRIF" = "v4r2m4h1" ] && CURRIF=v4r2m4h0        # wg. pmr 04940
#-------------------------------------------------------
# Bypass für VPM-Pbm #0324
[ "$CURLIC" = "default" ] && unset CURLIC
[ "$CURPRJ" = "default" ] && unset CURPRJ
[ "$CURRIF" = "default" ] && unset CURRIF
. CURenv
#-------------------------------------------------------
#. $CAT_ENV
. /var/mro/bin/catiaenv
echo "CATIA-Umgebung:"$CATIA
echo "  LIC:"$CURLIC" DEC:"$CURDEC" PRJ:"$CURPRJ" RIF:"$CURRIF

#********************************************************************
#
echo "SKELETON FT5HPGL2 : ERZEUGEN ft05f001 FÜR PLOTSTEP"
#
#********************************************************************
# SKELETON-PARAMETER:
# -------------------
# I        : 0000
#********************************************************************

if [ $RC_JOB -eq 0 ]
then
  cat                        << EOF     > ft05f001.CATPLOT.0000
*IMPORT   SHEET
/
*DD_IMP   CATIA.SHT.SONDER.MAP SHEET
*MB_IMP   PLOTTERTEST (GRID ALLE FORMATE)
/
*EXPORT   HPGL2
/
*COM
      dbb
*PCO   
*LFS      NO
*NHR      NO
/ *NHR      YES
/ *NBP      32
*NBP      81
/ *NPI      200
*NPI      400
/ *RAN      9 256
/ *RAN      9 512
/ *RAN      9 1024
/ *RAN      9 2048
/ *RAN      9 4096
*RAN      1 4096
/ *RAN      257 4096
/ *PIX      NO
/ *PRE      YES
*PRE      YES
/
*PAT      YES
*CLR      CLR
*TRT      BLACK
*WIG      NO
/ *XLC      YES
*XLC      NO
*TEXT     NO
/ *TON      YES
/ *TON      NO
*RGB      YES
/
/ *SCD       .905
*FCD       .905
/ *ROT      &ROTATE.
/ *MAP      20. 20. 99. 99.
/ *MAP      20. 20. 0. 0.
*SIZ      9999. 9999.
/
*SCD 1.
*BUF 6000
/ *DEL      NO
*DEL      NO
*RUN
/
EOF
#
#--------------------------------------------------------------------
#  SHEETFORMAT ANALYSIEREN
#--------------------------------------------------------------------
  cat <<                EOF  > ft05f001.PL2FORM.0000
*PRJ      
/ *PRJ      MRO
*GRP      catiamst
*USR      dbb
*ACCT     00000001
*PWD      XXXXXXXX
/
*SHTFILE  CATIA.SHT.SONDER.MAP
*SHT
 *PLOTTERTEST (GRID ALLE FORMATE)
/
EOF

  CATLICA="BATCH"
  export CATLICA
# /var/mro/load/PL2FORM < ft05f001.PL2FORM.0000 > ft06f001.PL2FORM.0000
  $V4_MROXX/load/PL2FORM < ft05f001.PL2FORM.0000 > ft06f001.PL2FORM.0000
  . /var/mro/bin/getrc
  RC_FT5=$rc
  unset CATLICA
  if [ $RC_FT5 -gt 1 ]
  then
    RC_JOB=$RC_JOB+$RC_FT5
  fi
  echo "ReturnCode="$RC_JOB
fi
#********************************************************************
#
echo "SKELETON PLT      : PLOTTEN EINES VORBEREITETEN CATIA-SHEETS"
#
#********************************************************************
# SKELETON-PARAMETER:
# -------------------
# I        : 0000
#********************************************************************
# zur Info:
catpath -l -A catia.model_kbytes.max_active_data
catpath -l -A catia.model_kbytes.max_active_index

#export PLTCOL=/var/mro/adm/plot2/pltcfg/PLTCOL
#export LINEDF=/var/mro/adm/plot2/pltcfg/LINEDF

if [ $RC_JOB -eq 0 ]
then
  umask 000

# CATOUT=PLOT_OUT.0000
  CATOUT=OUT.0000
  export CATOUT

  export CATLICA="BATCH"
  catutil -l catplot -x ft05f001.CATPLOT.0000 -o ft06f001.CATPLOT.0000
  RC_PLT=$?
  RC_JOB=$RC_JOB+$RC_PLT
  echo "ReturnCode="$RC_JOB
  unset CATLICA
fi
#********************************************************************
#
echo "SKELETON SNDNET"
#
#********************************************************************
# SKELETON-PARAMETER :
# --------------------
# I        : 0000
#********************************************************************

if [ $RC_JOB -eq 0 ]
then

  echo "\0033&l01X" > $CATOUT.tmp
  cat /var/mro/adm/plot2/esc/HPNETH2 >> $CATOUT.tmp
# echo "IN;" >> $CATOUT.tmp
  cat $V4_MRO/adm/plot2/hpglpen/DUMMY >> $CATOUT.tmp
  cat $CATOUT >> $CATOUT.tmp
  cat /var/mro/adm/plot2/esc/HPNETT >> $CATOUT.tmp
  if [ "QL050" != "PARM5" -a "QL050" != "QL100" ] ; then        # Quality ma
nipulieren
    cat $CATOUT.tmp | sed -e 's/QL100/QL050/' > $CATOUT.tmp2
    mv $CATOUT.tmp2 $CATOUT.tmp
  fi

  #lp -d R001P396 $CATOUT.tmp
  lp -d R001P396 -o nobanner -o nobanner $CATOUT.tmp
  RC_SND=$?
# rm $CATOUT.tmp
# rm $CATOUT
  RC_JOB=$RC_JOB+$RC_SND
  echo "ReturnCode="$RC_JOB
fi
#********************************************************************
#
echo "SKELETON MSG"
#
#********************************************************************

if [ $RC_JOB -eq 0 ]
then

  echo "Plotjob erfolgreich beendet" >> xmsgfile

  echo " " >> xmsgfile
  echo "IDENT     : "D050419.T151736.dbb >> xmsgfile
  echo "KERNNR    : "....... >> xmsgfile
  echo "PLOTTER   : "R001P396 >> xmsgfile
# xmsg -f xmsgfile -t PLOT2 -d cad520:0.0 -l 10

else

  echo "Plotjob nicht erfolgreich beendet" >> xmsgfile

  echo " " >> xmsgfile
  echo "IDENT     : "D050419.T151736.dbb >> xmsgfile
  echo "KERNNR    : "....... >> xmsgfile
  echo "PLOTTER   : "R001P396 >> xmsgfile

  echo " " >> xmsgfile
  echo "PL2BATCH: "$RC_SHT >> xmsgfile
  echo "PL2ANA  : "$RC_FT5 >> xmsgfile
  echo "CATPLOT : "$RC_PLT >> xmsgfile
  echo "SENDEN  : "$RC_SND >> xmsgfile
  xmsg -f xmsgfile -t PLOT2 -d cad520:0.0

  echo `hostname`: $WKDIR.PLOT2.........SHEET>>/var/mro/adm/plot2/error
fi

cat xmsgfile
echo " "

mv $WKDIR* $WKDIR.PLOT2.........SHEET