
  TYPE
    clt$variable_reference = record
      reference: ost$string,
      lower_bound: clt$variable_dimension,
      upper_bound: clt$variable_dimension,
      value: clt$variable_value,
    recend;

*copyc clt$variable_dimension
*copyc clt$variable_value
*copyc ost$string

