
  TYPE
    rat$additional_volume = record
      evsn: string (6),
      rvsn: string (6),
      size: rat$tape_size,
      bytes_assigned: integer,
      next_volume_p: ^rat$additional_volume,
    recend,

    rat$primary_tape = record
      evsn: string (6),
      rvsn: string (6),
      size: rat$tape_size,
      bytes_assigned: integer,
      assignment_range_lowerbound: rat$subproduct_count,
      assignment_range_upperbound: rat$subproduct_count,
      next_volume_p: ^rat$additional_volume,
      next_tape_p: ^rat$primary_tape,
    recend,

    rat$tape_vsn_list = record
      vsn: string(6),
      next_vsn_p: ^rat$tape_vsn_list,
    recend;

*copyc rat$packing_list_types
*copyc rat$tape_sizes
