
  TYPE
    dmt$stored_tape_volume_list = array [1 .. * ] of rmt$volume_descriptor;

*copyc rmt$volume_descriptor
