
  TYPE
    clt$variable_value_description = record
      case kind: (clc$variable_data_value, clc$variable_value) of
      = clc$variable_data_value =
        data_value: ^clt$data_value,
      = clc$variable_value =
        value: clt$variable_value,
      casend,
    recend;

*copyc clt$variable_reference
*copyc clt$data_value
