
  TYPE
    clt$parsed_variable = record
      name: ost$name,
      subscript: record
        case present: boolean of
        = TRUE =
          value: clc$min_variable_dimension .. clc$max_variable_dimension,
        casend,
      recend,
      field: ost$name,
    recend;

*copyc clt$variable_reference
*copyc ost$name
