  TYPE
    rmt$tape_volume_classification = record
      case volume_label_type: rmt$volume_label_type of
      = rmc$indeterminate_volume_type {Read error at BOV} =
        ,
      = rmc$labeled_volume_type =
        labeled: rmt$labeled_tape_classification,
      = rmc$unlabeled_volume_type =
        blank: boolean,
      casend,
    recend;

*copyc rmt$labeled_tape_classification
*copyc rmt$volume_label_type
