
  TYPE
    pft$physical_file_label = record
      checksum: pft$checksum,
      file_label: fmt$file_label,
    recend;

*copyc fmt$file_label
*copyc pft$checksum
