
    TYPE
      iot$tusl_ordinal = 1 .. ioc$maximum_tusl_entries;

    CONST
      ioc$maximum_tusl_entries = ioc$max_number_tape_units;

*copyc ioc$max_num_tape_units
