
  TYPE
     iot$tape_block_count = 0..ioc$max_tape_blocks_to_process,
     iot$min_block_length = 1..ioc$min_tape_block_length,
     iot$tape_block_length = 0..ioc$max_tape_block_length;

*copyc IOC$MAX_NUM_TAPE_UNITS
