
  TYPE
    cmt$request_block = RECORD
      request_code: syt$monitor_request_code,
      status: syt$monitor_status,
      CASE kind: cmt$rb_request_block_kind OF
      = cmc$rbk_assign_pp =
        assigned_pp: iot$pp_number,
        assigned: boolean,
      = cmc$rbk_change_state =
        iou: dst$iou_number,
        element_name: cmt$element_name,
        new_state: cmt$element_state,
        update_controller_address: boolean,
        redundant_path_available: boolean,
        redundant_path_pp_list_p: ^ARRAY [ * ] OF iot$pp_number,
        logical_unit_list_p: ^ARRAY [ * ] OF cmt$rb_logical_unit_address,
        CASE element_type: cmt$element_type OF
        = cmc$data_channel_element =
          channel_pp: iot$pp_number,
          channel: ost$physical_channel_number,
        = cmc$controller_element =
          controller_pp: iot$pp_number,
          controller_channel: ost$physical_channel_number,
          controller: cmt$physical_equipment_number,
        = cmc$storage_device_element =
          unit_pp: iot$pp_number,
          unit_channel: ost$physical_channel_number,
          unit_controller: cmt$physical_equipment_number,
          logical_unit: iot$logical_unit,
        CASEND,
      = cmc$rbk_idle_pp =
        idled_pp: iot$pp_number,
        send_idle: boolean,
      = cmc$rbk_queue_pp_request =
        queued_pp: iot$pp_number,
        request_p: ^iot$io_request,
      = cmc$rbk_request_stack_memory =
        first_byte_address_p: ^cell,
        rma: integer,
      = cmc$rbk_resume_pp =
        resumed_pp: iot$pp_number,
        send_resume: boolean,
      CASEND,
    RECEND,

    cmt$rb_logical_unit_address = RECORD
      logical_unit: iot$logical_unit,
      controller: cmt$physical_equipment_number,
    RECEND,

    cmt$rb_request_block_kind = (cmc$rbk_assign_pp, cmc$rbk_change_state, cmc$rbk_idle_pp,
          cmc$rbk_queue_pp_request, cmc$rbk_request_stack_memory, cmc$rbk_resume_pp);

*copyc cmt$element_name
*copyc cmt$element_state
*copyc cmt$element_type
*copyc cmt$physical_equipment_number
*copyc dst$iou_number
*copyc iot$io_request
*copyc iot$logical_unit
*copyc iot$pp_number
*copyc ost$physical_channel_number
*copyc syc$monitor_request_codes
*copyc syt$monitor_status
