rm INV/*
awk -F"^" '  {
file = "INV/H"sprintf("%.4d",NR)
split($1,a," ")
b1=sprintf("%1.1s%s",toupper(a[1]),substr(a[1],2))
b1=b1"."sprintf("%1.1s%s",toupper(a[2]),substr(a[2],2))
print "H01"$2 > file
print "H02"a[1]"."a[2] >file
printf "H03%.3d\n",$3 > file
print "H04"b1 > file
print "H05"sprintf("%1.1s%s",toupper(a[1]),substr(a[1],2)) >file
print "H06"sprintf("%1.1s%s",toupper(a[2]),substr(a[2],2)) >file
print "H101" > file
print "H1100 " > file
close(file)
} ' user
>../data/usuar/HEAD
echo -n "    0     0">../data/usuar/INFO
for i in INV/*
do
../ihd/bin/ihmu usuar ../../import/$i -N1
done
