
  TYPE
    clt$variable_descriptor = record
      header: clt$variable_descriptor_header,
      type_specification: clt$type_specification,
    recend;

*copyc clt$type_specification
*copyc clt$variable_descriptor_header
