
  TYPE
    clt$value = record
      descriptor: string (osc$max_name_size),
      case kind: clc$unknown_value .. clc$status_value of
      = clc$unknown_value =
        ,
      = clc$application_value =
        application: clt$application_value,
      = clc$variable_reference =
        var_ref: clt$variable_reference,
      = clc$string_value =
        str: ost$string,
      = clc$file_value =
        file: clt$file,
      = clc$name_value =
        name: clt$name,
      = clc$real_value =
        rnum: clt$real,
      = clc$integer_value =
        int: clt$integer,
      = clc$boolean_value =
        bool: clt$boolean,
      = clc$status_value =
        status: ost$status,
      casend,
    recend;

*copyc clt$variable_reference
*copyc clt$application_value
*copyc clt$boolean
*copyc clt$file
*copyc clt$integer
*copyc clt$name
*copyc clt$real
*copyc clt$value_kinds
*copyc ost$name
*copyc ost$status
*copyc ost$string
