#!/bin/ksh
tput clear

dir=/my/dir/here/ #all files are gzip'd
ifile=/tmp/ifile
ofile=/tmp/ofile
$file=$dir$file.gz
echo "Enter the date and hour to run this script on [YYMMDDHH]: \c"
read file


#tool is run to generate $ofile here, file is semicolon delimited


/usr/bin/gzcat $file | /usr/xpg4/bin/awk '

BEGIN {
print "headers go here"
}


NR == 3 { print $2,$3"  --  "$4,$5 ; print "" ; next }

/^dise / {
        dipce = substr($2,4,1) * 1000 ; next
           }
/^LC/ {
        lec = substr($0,3,3) + dipce
        f++
        s = ""
        for ( i in arr ) { delete arr[i] }
        }
	   f {
              if ( $1 == "RRAC" ) {
                s++
                 }
                if ( s ) {
                    if ( $1 == "tsec" ) {
                       lectsec = $2 * 1
                       }
                    if ( $1 == "VAR" ) {
                        car[$2 * 1]+=$8
                        lecCar = $2 * 1
                        c[lec,lectsec,BCar] = 0
                        }
                     c[lec,lectsec,BCar]++
                     if ( c[lec,lectsec,BCar] == 8 ) {
                        car[BCar]+=$8
                        tst[lec"-"BCar]=sprintf("%5.2f",car[BCar] / 12)
                        }
                    }
                if ( $1 == "RRAC-L" ) {
                        f = "" ; next
                   }
                   }


###This section not working because I can't access###
###array tst, to "test" I tried printing tst array, but can't get it to work.

{
while (( getline < "'"$ofile"'" ) > 0 ) {
FS = "\;" 
	x[$2"-"$4]+=tst[$5"-1"] ;
        x[$5"-"$7]+=tst[$5"-2"] ;
        x[$8"-"$10]+=tst[$5"-3"];
        x[$11"-"$13]+=tst[$5"-4] ;
}
}
#####################################################
END {
for ( i in x ) { print i,x[i] }

    } '

/usr/bin/rm $ifile
/usr/bin/rm $ofile