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

    p_queue_interface_table := dfv$p_queue_interface_directory^ [directory_index].p_queue_interface_table;

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

