
  TYPE
    pft$p_log_array = ^pft$log_array;

*copyc pft$log_array
