
  PROCEDURE [INLINE] dfp$clear_server_driver_flags
    (    p_driver_queue_entry: ^dft$driver_queue_entry);

    p_driver_queue_entry^.error_condition := 0;
    p_driver_queue_entry^.data_descriptor.actual_length := 0;
    #spoil (p_driver_queue_entry^);
    p_driver_queue_entry^.flags := dfv$active_queue_entry_flags;
    #spoil (p_driver_queue_entry^);

  PROCEND dfp$clear_server_driver_flags;

?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc dfv$active_queue_entry_flags
?? POP ??
