
  TYPE
    pft$change_list = array [1 .. * ] of pft$change_descriptor;

*copyc pft$change_descriptor
