#!/bin/rc
# writes out all sister groups of the taxon given as argument
# Usage: sisters TAXON
# Mon Jan 27 11:02:45 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'|STATUS=VAL' >[2=]}; \
pq -m 'join '^$DISPATCH^'' -o '%TAXNAME' 'UP='$i'|STATUS=VAL' >[2=]}