
  TYPE
    clt$parameter_descriptor_table = record
      names: ^array [1 .. * ] of clt$parameter_name_descriptor,
      parameters: ^array [1 .. * ] of clt$parameter_descriptor,
    recend;

  TYPE
    clt$parameter_name_descriptor = record
      name: ost$name,
      number: 1 .. clc$max_parameters,
    recend;

  TYPE
    clt$parameter_descriptor = record
      required_or_optional: clt$required_or_optional,
      min_value_sets: 1 .. clc$max_value_sets,
      max_value_sets: 1 .. clc$max_value_sets,
      min_values_per_set: 1 .. clc$max_values_per_set,
      max_values_per_set: 1 .. clc$max_values_per_set,
      value_range_allowed: (clc$value_range_not_allowed,
            clc$value_range_allowed),
      value_kind_specifier: clt$value_kind_specifier,
    recend;

*copyc cls$pdt_sections
*copyc clc$max_parameters
*copyc clc$max_value_sets
*copyc clc$max_values_per_set
*copyc clt$required_or_optional
*copyc clt$value_kind_specifier
*copyc ost$name
