
  CONST
    clc$message_cache_size = 10;

  TYPE
    clt$message_cache = record
      count: 0 .. clc$message_cache_size,
      buffer: array [1 .. clc$message_cache_size] of clt$message_cache_entry,
    recend;

  TYPE
    clt$message_cache_entry = record
      code: ost$status_condition_code,
      name: ost$status_condition_name,
      severity: ost$message_module_severity,
*IF NOT $true(osv$unix)
      template: ^ost$message_template,
*ELSE
      template: string (256),
*IFEND
    recend;

*copyc ost$message_module_severity
*copyc ost$message_template
*copyc ost$status_condition_code
*copyc ost$status_condition_name
