cd ..
./appl/sh/isapr | awk -F"^" '{ printf "%s%s%s^%s\n",$1,$7,$8,$9 } ' - >IMP/ispr
cd IMP
echo PASO 1
awk -F"^" '  BEGIN { split("31 28 31 30 31 30 31 31 30 31 30 31",m," ") }
function f2(f) { return substr(f,1,2)"/"substr(f,4,2)"/"substr(f,7) }
function f1(f) { return substr(f,7)substr(f,4,2)substr(f,1,2) }
function fv(f) { 
 da=substr(f,1,2) +30
 me=substr(f,4,2)+0
 ye=substr(f,7)
 if (da > m[me]) { da -= m[me]; me++ }
 if (da > m[me]) { da -= m[me]; me++ }
 if(me >12) { me=1; ye++ }
return sprintf("%.2d/%.2d/%.4d",da,me,ye)
}
function tomrw(f) { 
 da=substr(f,1,2)
 me=substr(f,4,2)+0
 ye=substr(f,7)
	da++
 if (da > m[me]) { da =1; me++ }
 if(me >12) { me=1; ye++ }
return sprintf("%.2d/%.2d/%.4d",da,me,ye)
}
{

vv=fv($6)
v=$6
while(f1(vv)-f1($5) <0) { v=vv;vv=fv(vv) }
cc=v
di[cc]="00"
for (i=1;i<30;i++) { cc=tomrw(cc);di[cc]=sprintf("%.2d",i+3)}
vali=sprintf("%.2d%s",$3,di[$5])
print f1(v)"^"$1"^"$2"^"vali"^"$4"^"$5"^"f2($6)"^"f2(v)"^"vv"^"$7
} ' PRES | sort >PR1
cat PR1 | awk -F"^" '
FILENAME == ARGV[1] { x[$2]=$8 ; next } 
x[$2]==$8  { print > "PR2" }

' PR1 -
echo PASO2

awk -F"^" ' FILENAME==ARGV[1] { isp[$1]=$2 ; next } 
r[$2]=="" {
f="PAC/F"$2
print "H15"$8 >>f
print "D000001" >>f
print "D010002" >>f
print "D020003" >>f
print "D030004" >>f
print "D040005" >>f
print "D050006" >>f
r[$2]=1

if($5== "RD" || $5=="PD" ) rd="01"
if($5== "RA" || $5=="PA" ) rd="02"
print "D0001"rd >>f
print "D0101"rd >>f
print "D0201"rd >>f
print "D0301"rd >>f
print "D0401"rd >>f
print "D0501"rd >>f
print "D0002"isp[$10"01"rd] >>f
print "D0102"isp[$10"02"rd] >>f
print "D0202"isp[$10"03"rd] >>f
print "D0302"isp[$10"04"rd] >>f
print "D0402"isp[$10"05"rd] >>f
print "D0502"isp[$10"06"rd] >>f
}
{
	print "D"$4""$5" " >f
} ' ispr PR2

awk -F"^" ' $5=="RA" || $5=="RD" { if( x[$2""$5] =="" ) { print $2$5;  r[$2]++; x[$2""$5]=1 } }
END { for (i in r ) if(r[i]>1 ) print i,r[i] } ' PR2 | sort
echo ------------------------------------------
awk -F"^" ' $5!="RA" && $5!="RD" { if( x[$2""$5] =="" ) { print $2$5;  r[$2]++; x[$2""$5]=1 } }
END { for (i in r ) if(r[i]>1 ) print i,r[i] } ' PR2 | sort




# 20181130^00004^16.203.285-2^0003^RD^03/12/2018^30-11-2018^30-11-2018^30/12/2018

