rm PAC/*
set `cat ../data/pacie/INFO`
k=04-04-2019-COPIAPO
k=17-02-2019-IV
k=05-04-2019-IX
k=08-02-2019-SANFELIPE
k=08-03-2019-ARICA
k=11-02-2019-LAUNION
k=14-01-2019-CHILLAN
k=14-03-2019-IQUIQUE
k=BASES/$k
cat $k | ./etoa > $k.T
awk -F";" ' BEGIN {
isp["Ban"]="08"
isp["Col"]="02"
isp["Con"]="01"
isp["Dip"]="09"
isp["Fun"]="03"
isp["Nue"]="07"
isp["Fus"]="11"
pre["E"]="02"
pre["K"]="03"
pre["M"]="01"
pre["N"]="05"
pre["P"]="04"
pre["T"]="06"
pac="'"$1"'"
}
NR<3 { next } 
NR==3 {
split(FILENAME,rr,"-")
cmp=rr[1]
m=rr[2]-1
y=2019
for (i=1;i<19;i++) d[i]=$i
for (i=20;i<NF;i++)
{
	if($i < cmp) if( ++m >12 ) { m=1 ; y++ }
	d[i]=sprintf ("%.2d/%.2d/%.4d",$i,m,y)
	cmp=$i
}
next
}
function f(fec)
{
	split(fec,ff,"-")
	return ff[1]"/"ff[2]"/"ff[3]
}
{
if ($1!="")
{
	pac++
	ini=$1
	file= sprintf("PAC/F%.5d",pac)
	s=split($3,a," ")
	print "H02"a[s-1] > file
	print "H03"a[s] > file
	if (s==3) print "H04"a[1] > file
	else print "H04"a[1]" "a[2] > file
	print "H14"f($1) > file
	print "H15"f($1) > file
	print "H19"f($2) > file
	print "H01"$9 > file
	print "H05"$10 > file
	print "H11"$11 > file
	print "H10"$12 > file
	print "H16"$13 > file
	print "H17"$15"\r"$10 > file
	isap=isp[substr($19,1,3)]
	print "H18"isap > file
	print "H2000" > file
}
if ($1!="") for (i=1;i<20;i++) print i,d[i],$i
#if ($1!="") x=$5"^"$9"^"$10"^"$11"^"$12"^"$13"^"$15"^"

for (i=20;i<NF;i++) if($i!="")
{
	 printf "%.5d^"$5"^"pre[substr($7,1,1)]-1"^%2.2s^%s^%s^%s\n",pac,$i,d[i],ini,isap >"PRES"
}
} ' $k.T
sh pres
for i in PAC/*
do
../ihd/bin/ihmu pacie ../../IMP/$i -N1
done
sh agen
cd ..
sh pwb agend
