
  TYPE
    rat$tape_information = record
      vsn_seed: rmt$external_vsn,
      tape_type: ost$name,
      sizes: rat$tape_sizes,
      percent_usable: rat$percent_of_tape_usable,
      number_of_tapes: integer,
      number_of_primary_tapes: integer,
      number_of_multi_vol_sets: integer,
      number_of_tapes_theoretical: integer,
    recend;

*copyc ost$name
*copyc rat$percent_of_tape_usable
*copyc rat$tape_sizes
*copyc rmt$external_vsn
