 TYPE
    fmt$volume_information = array [1 .. * ] of fmt$volume_info,

    fmt$volume_info = record
      item_returned {output} : boolean,
      case key {input} : fmt$volume_info_keys of
      = fmc$number_of_volumes =
        number_of_volumes {output} : amt$volume_number,
      = fmc$volume =
        requested_volume_number {input} : amt$volume_number,
        volume {output} : rmt$volume_descriptor,
      = fmc$tape_density =
        tape_density {output} : rmt$density,
      = fmc$tape_class =
        tape_class {output} : rmt$tape_class,
      = fmc$write_ring =
        write_ring {output} : rmt$write_ring,
      casend,
    recend,

    fmt$volume_info_keys = (fmc$number_of_volumes, fmc$volume, fmc$tape_density,
      fmc$tape_class, fmc$write_ring);

?? PUSH (LISTEXT := ON) ??
*copyc rmd$tape_declarations
*copyc rmd$volume_declarations

*copyc amc$max_vol_number
*copyc amt$error_count
*copyc amt$file_byte_address
*copyc amt$last_op_status
*copyc amt$residual_skip_count
*copyc amt$skip_count
*copyc amt$skip_direction
*copyc amt$skip_unit
*copyc amt$tape_mark_count
*copyc amt$volume_number
?? POP ??
