
  TYPE
    clt$pdt_change = record
      number: clt$parameter_number,
      case kind: clt$pdt_change_kind of
      = clc$pdtc_availability =
        availability: clt$named_entry_availability,
      = clc$pdtc_security =
        security: clt$parameter_security,
      = clc$pdtc_type =
        type_changes: ^clt$type_changes,
      = clc$pdtc_default_value =
        default_value: ^clt$expression_text,
      = clc$pdtc_null =
        ,
      casend,
    recend;

*copyc clt$expression_text
*copyc clt$named_entry_availability
*copyc clt$parameter_number
*copyc clt$parameter_security
*copyc clt$pdt_change_kind
*copyc clt$type_changes
