{
{  This procedure determines whether an active queue exists in the
{  specified queue interface table.
{

  FUNCTION [INLINE] dfp$active_queue_exists
    (p_queue_interface_table: dft$p_queue_interface_table): boolean;

    VAR
      queue_index: dft$queue_index;

    dfp$active_queue_exists := FALSE;

  /check_for_active_queue/
    FOR queue_index := 1 TO p_queue_interface_table^.queue_directory.number_of_queues DO
      IF p_queue_interface_table^.queue_directory.driver_queue_rma_directory [queue_index].
        driver_queue_rma > 0 THEN
          IF NOT p_queue_interface_table^.queue_directory.driver_queue_pva_directory
               [queue_index].p_driver_queue^.queue_header.flags.idle THEN
            dfp$active_queue_exists := TRUE;
            RETURN;
         IFEND;
      IFEND;
    FOREND /check_for_active_queue/;

  FUNCEND dfp$active_queue_exists;
?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc dft$queue_index
?? POP ??

