F=tmp.prod/PRD*
eleme=tmp.prod/eleme
awk -F^ ' BEGIN { print ARGV[1] }
substr(FILENAME,10,3) == "PRD" {
inx=substr(FILENAME,13)
if($1=="MPAPP") mpapp[inx]=$3
if($1=="PTERM") pterm[inx]=$3
print inx
next
}
substr($4,1,2)=="01" {
cost[substr($3,1,2)"^"$4] = mpapp[substr($3,1,2)]*$7
prk[substr($3,1,2)"^"$4] = mpapp[substr($3,1,2)]*$7/pterm[substr($3,1,2)]
next
}
$5=="V" {
cost[substr($3,1,2)"^"$4] = $7*pterm[substr($3,1,2)]
prk[substr($3,1,2)"^"$4] = $7
}
$5=="F" {
cost[substr($3,1,2)"^"$4] = $7
prk[substr($3,1,2)"^"$4] = $7/pterm[substr($3,1,2)]
}
END {
        for (i in cost) printf "%s^%.4f^%.0f<br>\n",i,prk[i],cost[i]
} ' $F $eleme


