#!/bin/rc
# writes out the closest including taxon of the taxon given as argument
# Usage: up taxon_name
# Wed Jan 22 10:46:02 EST 2003
# <pac7@post.cz>

# edit the next line to show the locate your dispatch file properly
DISPATCH='/usr/pac/++RESEARCH/pq-databases/polyc/dispatch'

i=$1
i= `{pq -m 'join '^$DISPATCH^'' -o ' %UP' 'TAXON='$i''}

pq -m 'join '^$DISPATCH^'' -o ''$i' %TAXNAME' 'TAXON='$i''