
  TYPE
    dmt$stored_tape_fmd_header = record
      case version: dmt$stored_tape_fmd_version of
      = dmc$stored_tape_fmd_version_1 =
        density: dmt$stored_tape_density,
        removable_media_group: dmt$stored_rem_media_group,
        volume_count: dmt$stored_tape_volume_count,
        volume_overflow_allowed: boolean,
        reserved_tape_fmd_header_space: array [1 .. 48] of boolean,
      casend,
    recend;

*copyc dmt$stored_rem_media_group
*copyc dmt$stored_tape_density
*copyc dmt$stored_tape_fmd_version
*copyc dmt$stored_tape_volume_count
