Compile.ksh
From Cassandra
Create a script called "compile.ksh" in /opt/fox/dd_1/seq and put the following in it.
#bin sh
echo ----- > /tmp/compseq.log
pref -$GCLBUG dmcmd 'msglin "Please Wait..."'
cd /opt/fox/ciocfg/api/
CMP=$1
BK=$2
CMPBLK=$3
DD=$4
file_s=$5
file_r=$6
seqdir=/opt/fox/ciocfg/$CMP
CP=`/opt/fox/bin/tools/getpars -U* -C$CMP -B$BK -mCP:%6s -mCMPNM:%12s -n | grep -w $1 | cut -c15-20`
TYPE=`/opt/fox/bin/tools/getpars -U* -C$CMP -B$BK -mTYPE:%6s -mCMPNM:%12s -n | grep -w $1 |cut -c15-20`
YN=""
echo $CP $CMP $BK $CMPBLK $DD $TYPE >> /tmp/compseq.log
echo OPEN $CP MODIFY BLKDTL > /tmp/compseq.inp
echo CMPLSEQ $TYPE /tmp/$BK >> /tmp/compseq.inp
echo CLOSE >> /tmp/compseq.inp
echo EXIT >> /tmp/compseq.inp
echo >> /tmp/compseq.inp
pref -$GCLBUG dmcmd 'msglin "Compiling $CMPBLK"'
iccdrvr.tsk -i /tmp/compseq.inp -o /tmp/compseq.out -d /tmp/compseq.txt
pref -$GCLBUG dmcmd 'msglin "Compile $CMPBLK completed"'
WARNING=`cat /tmp/$BK.l |grep detected | cut -c1-9`
ERROR=`cat /tmp/$BK.l |grep detected | cut -c16-22`
echo $WARNING >> /tmp/compseq.log
echo $ERROR >> /tmp/compseq.log
if ([ "$ERROR" = "0 error" ]&&[ "$WARNING" = "0 warning" ])
then
echo compile No Errors or Warnings >> /tmp/compseq.log
YN=`D:/nutc/mksnt/msgbox -byesno "Compile Status" "No Errors or Warnings, Commit Code?"`
echo $YN >> /tmp/compseq.log
if [ $YN = "yes" ]
then
pref -$GCLBUG dmcmd 'msglin "Commiting $CMPBLK"'
echo OPEN $CP MODIFY BLKDTL > /tmp/putseq.inp
echo UPLOAD $CMPBLK >> /tmp/putseq.inp
echo PUTSEQ $CMPBLK D:/tmp/$BK >> /tmp/putseq.inp
echo CLOSE >> /tmp/putseq.inp
echo EXIT >> /tmp/putseq.inp
echo >> /tmp/putseq.inp
iccdrvr.tsk -i /tmp/putseq.inp -o /tmp/putseq.out -d /tmp/putseq.txt
pref -$GCLBUG dmcmd 'msglin "Commit $CMPBLK completed"'
sleep 2
pref -$GCLBUG dmcmd 'ov $DD/seq/ASC_CODE -l LL'
D:/nutc/mksnt/msgbox -bok "Commit Status" "Commit Complete"
else
D:/nutc/mksnt/msgbox -bok "Commit Status" "Commit Aborted"
fi
else
YN=`D:/nutc/mksnt/msgbox -iexclamation -byesno "Compile Status" "Errors or Warnings in program, View listing?"`
echo $YN >> /tmp/compseq.log
if [ $YN = "yes" ]
then
write d:/tmp/$BK.l
fi
fi
pref -$GCLBUG dmcmd 'msglin "Please Wait... Distributing files"'
for i in `cat /etc/aplns`
do
echo $i
echo copying //$i/ia$file_s >> /tmp/distcode.log
echo copying //$i/ia$file_r >> /tmp/distcode.log
mkdir //$i/ia$seqdir
cp $file_s //$i/ia$file_s
cp $file_r //$i/ia$file_r
done
pref -$GCLBUG dmcmd 'msglin "Done Distributing"'
#write d:/tmp/distcode.log
