{Deck:  DFT$RPC_PROGRESS_RECORD

  TYPE
    dft$rpc_progress_record = record
      { Describe the current state of the request.
      transaction_per_rpc_request: 0 .. 0ffff(16),
      total_data_sent: dft$send_data_size,
      total_data_received: dft$send_data_size,

      { Describe the completed state of the request.
      { This is the exact number of bytes, ( not rounded to word or pages size)
      user_buffer_length_sent: dft$send_parameter_size,
      user_data_length_sent: dft$send_data_size,
    recend;


*copyc dft$rpc_parameters





