
  PROCEDURE [INLINE] dfp$get_current_rq_buffer_entry
    (    p_queue_interface_table: dft$p_queue_interface_table;
         out: integer;
     VAR request_buffer_entry: dft$request_buffer_entry);

     request_buffer_entry := p_queue_interface_table^.request_buffer_directory.p_request_buffer^.
           request_buffer_entries [(out DIV 8) + 1];

   PROCEND dfp$get_current_rq_buffer_entry;
?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc dft$request_buffer
?? POP ??
