
  TYPE
    pft$p_log = ^pft$physical_log;

*copyc pft$physical_log
