{ Deck:  DFT$RPC_TEST_REQUEST_HEADER
 CONST
   dfc$maximum_test_request_buffer = dfc$maximum_user_buffer_area -
      71 {#size(dft$rpc_test_request_header)};

 TYPE
    dft$rpc_test_request_header = record
      compute_checksum: boolean,
      start_time: integer,
      { Describe send buffer - from sender perspective
      send_buffer_size: dft$send_parameter_size,
      receive_buffer_size: dft$send_parameter_size,
      send_buffer_starting_char: char,
      buffer_checksum: dft$checksum,

      { Describe data - from sender perspective
      send_data_size: dft$send_data_size,
      receive_data_size: dft$send_data_size,
      data_starting_char: char,
      data_checksum: dft$checksum,

      { Describe server to client segment - from client's perspective
      receive_segment_size: ost$segment_length,
      receive_segment_offset: ost$segment_length,
      segment_starting_char: char,
      segment_checksum: dft$checksum,

     { Describe client to server segment - from client's perspective
      send_segment_size: ost$segment_length,
      send_segment_offset: ost$segment_length,
      send_segment_starting_char: char,
      send_segment_checksum: dft$checksum,
    recend;

*copyc dfd$request_package
*copyc dft$rpc_parameters
*copyc osd$virtual_address
