
  TYPE
    fst$copy_control_information = record
      input_resolved_file_reference: fst$resolved_file_reference,
      output_resolved_file_reference: fst$resolved_file_reference,
      case type_of_copy: fst$copy_types of
      = fsc$error_move =
        ,
      = fsc$byte_move, fsc$v_to_t_record_conversion =
        input_file_size: amt$file_byte_address,
        initial_byte_address: amt$file_byte_address,
        input_and_output_are_aam_files: boolean,
      = fsc$record_move, fsc$legible_to_list_move, fsc$list_to_legible_move,
        fsc$undefined_ss_move =
        input_file_device_class: rmt$device_class,
        output_can_be_partitioned: boolean,
        working_storage_length: amt$working_storage_length,
        output_record_length: amt$max_record_length,
        output_record_length_is_fixed: boolean,
        push_overflow: boolean,
        case fst$copy_types of
        = fsc$legible_to_list_move =
          page_format: amt$page_format,
          page_length: amt$page_length,
        casend,
      = fsc$copy_keyed_file_move =
      casend,
    recend;

*copyc amt$file_byte_address
*copyc amt$working_storage_length
*copyc amt$max_record_length
*copyc amt$page_format
*copyc amt$page_length
*copyc fst$copy_types
*copyc fst$resolved_file_reference
*copyc rmt$device_class
