./pwb docvt

./ihd/bin/ihmq prods H00"^" H11"^" H15"^" |
awk -F^ ' BEGIN {
print "un=new Array()"
print "pr=new Array()"
}
{
 print "un[\""$1"\"]=\""trail(substr($2,4))"\""
 print "pr[\""$1"\"]=\""trail($3)"\""
}
function trail(x) { while (substr(x,length(x))==" ") x=substr(x,1,length(x)-1); return(x)
 } ' -  > ../js/prd.js


