prter=./tmp/prter
ihdm prter h00"^" h01"^" h02"^" h03"^" h04"^" h05"^" h06"^" h07"^" h08"^" h09"^" h10"^" h11"^" h12 | egrep 12/2019 |

awk -F"^" ' BEGIN { } 
{
file="PT/"$1
print "H00"$1> file
print "H01"$2> file
print "H02"$3> file
print "H03"$4> file
print "H04"$5> file
print "H05"$6> file
print "H06"$7> file
j=0
for (i=8;i<14;i++)
{
	if ($i+0)
	{
		printf "D%.2d00%.6d\n",j,i-7> file
		printf "D%.2d01%s\n",j,$i> file
		printf "D%.2d02XX\n",j> file
		j++
	}
}
print " " >file
} ' 


# |  1 H00 folprt 06 00   0 | 2 H01 fechat 16 00   6 | 3 H02 tpdocu 02 55  22 |
# |  4 H03 operar 04 56  24 | 5 H04 operar 04 57  28 | 6 H05 vended 04 58  32 |
# |  7 H06 vended 04 59  36 | 8 H07 kilos1 07 01  40 | 9 H08 kilos2 07 01  47 |
# | 10 H09 kilos3 07 01  54 |11 H10 kilos5 07 01  61 |12 H11 kilos4 07 01  68 |
# | 13 H12 kilos6 07 01  75 |

 > $prter

# |  1 H00 folprt 06 00   0 | 2 H01 fechat 16 00   6 | 3 H02 tpdocu 02 55  22 |
# |  4 H03 operar 04 56  24 | 5 H04 operar 04 57  28 | 6 H05 vended 04 58  32 |
# |  7 H06 vended 04 59  36 | 8 H07 kilos1 07 01  40 | 9 H08 kilos2 07 01  47 |
# | 10 H09 kilos3 07 01  54 |11 H10 kilos5 07 01  61 |12 H11 kilos4 07 01  68 |
# | 13 H12 kilos6 07 01  75 |
>data/pterm/H
>data/pterm/HEAD
>data/pterm/DOC


echo "    0      0" >data/pterm/INFO

for i in PT/*
do
echo ihd/bin/ihmu pterm ../../$i
ihd/bin/ihmu pterm ../../$i
done
