
  CONST
    ofc$maximum_queue_messages = 60,
    ofc$max_message_ordinal = 0ffff(16);

  TYPE
    oft$operator_message_descriptor = record
      next_descriptor_p: ^oft$operator_message_descriptor,
      sending_task: ost$global_task_id,
      message_class: oft$operator_class,
      message_id: oft$operator_message_id,
      acknowledgement_allowed: boolean,
      clear_message_when_acknowledged: boolean,
      system_supplied_name: jmt$system_supplied_name,
      formatted_message: oft$formatted_operator_message,
      number_of_message_lines: oft$number_of_displayable_lines,
      response_received: boolean,
      response_message: ost$string,
    recend,

    oft$operator_message_id = 0 .. ofc$max_message_ordinal;

*copyc jmt$system_supplied_name
*copyc ofc$max_messages_per_job
*copyc oft$formatted_operator_message
*copyc oft$operator_class
*copyc ost$global_task_id
*copyc ost$string
