
  TYPE
    rmt$volume_list = array [ * ] of rmt$volume_descriptor;

*copyc rmt$volume_descriptor
