
  PROCEDURE [INLINE] dfp$get_queue_directory_index
    (    p_queue_interface_table: dft$p_queue_interface_table;
     VAR directory_index: dft$queue_directory_index);

    FOR directory_index := 1 TO UPPERBOUND (dfv$p_queue_interface_directory^) DO
      IF p_queue_interface_table = dfv$p_queue_interface_directory^ [directory_index].p_queue_interface_table
            THEN
        RETURN;
      IFEND;
    FOREND;

  PROCEND dfp$get_queue_directory_index;
?? PUSH (LISTEXT := ON) ??
*copyc dft$queue_interface_directory
*copyc dfv$p_queue_interface_directory
?? POP ??
