
  TYPE
    pft$fmd_locator = record
      fmd_size: pft$fmd_size,
      relative_cell_pointer: pft$relative_cell_pointer,
    recend;

*copyc pft$fmd_size
*copyc pft$relative_cell_pointer
