
{ DECK: IOT$TAPE_USAGE_STATISTIC_DATA

  CONST
    ioc$max_usage_counters = 10,
    ioc$tape_usage_counters = 1,
    ioc$tape_usage_statistic_data = 2,
    ioc$tape_usage_array = 3;

  TYPE
    iot$tape_usage_data_selector = ioc$tape_usage_counters ..
          ioc$tape_usage_array;

  TYPE
    iot$tape_usage_data = record
      case iot$tape_usage_data_selector of

      = ioc$tape_usage_counters =
        counters: seq (rep ioc$max_usage_counters of integer),
      = ioc$tape_usage_statistic_data =
        package: iot$tape_usage_statistic_data,
      = ioc$tape_usage_array =
        counters_array: array [1 .. ioc$max_usage_counters] of integer,

      casend
    recend;

  TYPE
    iot$tape_usage_statistic_data = record
      last_density: integer,
      total_blocks_written: integer,
      total_blocks_read: integer,
      total_io_requests: integer,
      accounting_blocks_skipped: integer,
      accounting_blocks_written: integer,
      accounting_blocks_read: integer,
      accounting_bytes_written: integer,
      accounting_bytes_read: integer,
      seconds_tape_mounted: integer,
    recend;
