
  TYPE
    pft$info = SEQ ( * );

*copyc pft$p_info_record
