inqudb — Inquire next free database handle
subroutine inqudb(handle) integer*4 status
handle
Next free handle returned (output). If no handles are free handle is set to 0.