
  TYPE
    pft$physical_catalog_header = record
      checksum: pft$checksum,
      catalog_header: pft$catalog_header,
    recend;

*copyc pft$catalog_header
*copyc pft$checksum
