{
{  This procedure is provided for the SERVER side to force a retransmission
{ when the server detects command buffer data that appears to be bad, for
{ example as a result of an undetected hardware error, or as a result of
{ a software error.  The request is re-sent from the client side.
{ If too many (as determined by maximum_retransmission_count) of these occur
{ consecutively for a given queue entry the whole connection will be timed-out.
{
  PROCEDURE [INLINE] dfp$set_message_content_error
    (    p_cpu_queue_entry: ^dft$cpu_queue_entry;
         p_driver_queue_entry: ^dft$driver_queue_entry);

    log_display_integer ($pmt$ascii_logset [pmc$system_log, pmc$job_log],
          ' File Server - Message content error transaction:',
          p_cpu_queue_entry^.transaction_count);
    p_cpu_queue_entry^.transaction_state := dfc$message_content_error;
    dfp$clear_server_driver_flags (p_driver_queue_entry);
    IF dfv$file_server_debug_enabled THEN
      display_pva (' File server - message content error - cpu ',
            p_cpu_queue_entry);
      display_pva (' p_driver_queue ', p_driver_queue_entry);
      osp$system_error (' FILE SERVER MESSAGE CONTENT ERROR ', NIL);
    IFEND;

  PROCEND dfp$set_message_content_error;
?? PUSH (LISTEXT := ON) ??
*copyc dfi$display
*copyc dfp$clear_server_driver_flags
*copyc dfv$file_server_debug_enabled
*copyc dfi$log_display
*copyc osp$system_error
?? POP ??
