{Deck:  DFT$RPC_BUFFER_HEADER

  { Send from CLIENT --->  SERVER
  TYPE
    dft$rpc_buffer_header = record
      system_supplied_job_name: jmt$system_supplied_name,
      procedure_version: dft$procedure_version,
      procedure_name_checksum: dft$checksum,
      call_progress: dft$rpc_progress_record,
      case procedure_class: dft$procedure_class of
      = dfc$permanent_file_call =
        client_job_id: dft$client_job_id,
        system_administrator: boolean,
        family_administrator: boolean,
      casend,
    recend;

  { Send to CLIENT <--- SERVER
  TYPE
    dft$rpc_response_buffer_header = record
      call_progress: dft$rpc_progress_record,
    recend;
*copyc dft$procedure_version
*copyc dfd$request_package
*copyc dft$client_job_id
*copyc dft$procedure_class
*copyc dft$rpc_progress_record
*copyc jmt$system_supplied_name

