#!/bin/rc
# writes out all occurrences of  the taxon (number) given as argument
# Usage: occ TAXON
# Mon Jan 27 10:24:28 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'


pq -m 'join '^$DISPATCH^'' -o '%TAXON %TAXNAME --- point %POINT' 'TAXON='$1''