 TYPE
    fst$magnetic_tape_information = record
      class: rmt$tape_class,
      density: rmt$density,
      initial_vsn: rmt$volume_descriptor,
      number_of_volumes: amt$volume_number,
      volume_set_labelled: boolean,
      volume_set_overflow_allowed: boolean,
      write_ring: rmt$write_ring,
    recend;

*copyc amt$volume_number
*copyc rmt$density
*copyc rmt$tape_class
*copyc rmt$volume_descriptor
*copyc rmt$write_ring
