
  TYPE
    iot$no_of_tape_units = 0..ioc$max_number_tape_units;

*copyc IOC$MAX_NUM_TAPE_UNITS
