#!/bin/ksh
## New 5.0 slib format
# TIGSM20P: JOB SKELETON FOR CPM INTERFACE. (PORTAL UPLOAD ONLY) *
# REFORMATS MS PROJECT EXPORT RECORDS INTO PASSPORT *
# RECORDS AND PROCESSES THE NEW SCHEDULE. *
#
# Customizations
#
# DD Mon YY Per Description
# -- --- -- --- ------------------------------------------------
# 1. 22 Aug 08 JEC Change substr to cut.
#
export OERRORS=$NFSSTEM/$logname/batch/tibm20p.err
typeset -L cpmfile
export line=`head -n 1 "$IPARMS1"`
#CUST Begin
#export loncher=`expr substr "$line" 29 4`
tail -n 1 $IPARMS1 > $IPARMS1.last
export loncher=`cut -b29-32 $IPARMS1.last`
#CUST end
if [ "$loncher" = "D677" ]; then
#CUST Begin
# export cpmfile=`expr substr "$line" 9 8`
export cpmfile=`cut -b9-16 $IPARMS1.last`
#CUST end
export ICPMDATA=$BTCHPRM/tibm20p/$cpmfile
if [ ! -d $BTCHPRM/tibm20p ]; then
echo " Input file directory $BTCHPRM/tibm20p does not exist" >> $errfl
exit 1
fi
if [ -z "$ICPMDATA" ]; then
if [ ! $cpmfile eq " " ]; then
touch $ICPMDATA
chmod 777 $ICPMDATA
fi
fi
fi
#
# DELETE OUTPUT ERROR FILE *
export OERRORS=$OERRORS
bd1="export ICPMDATA=$ICPMDATA"
bd2="rm $OERRORS 2> /dev/null"
bd3="echo ICPMDATA= $ICPMDATA"
ad1="$TOOLSDIR/utom $OERRORS"
. $PPBATCH $1 tibm20p 0 0