TYPE
  iot$tape_characteristics = RECORD
    label_type: amt$label_type,
    character_set: amt$internal_code,
    write_ring: boolean,
    density: rmt$density,
  RECEND;

*copyc amt$internal_code
*copyc amt$label_type
*copyc rmt$density

