
  TYPE
    clt$status = record
      normal: clt$boolean,
      identifier: clt$status_identifier,
      condition: clt$integer,
      text: ost$string,
    recend;

*copyc clt$boolean
*copyc clt$integer
*copyc clt$status_identifier
*copyc ost$string
