  TYPE
    oft$display_message = record
      size: 0 .. ofc$max_display_message,
      text: string (ofc$max_display_message),
    recend;

*copyc ofc$max_display_message
