
  TYPE
    pft$archive_array_entry = record
      version: pft$archive_entry_version,
      archive_date_time: ost$date_time,
      archive_identification: pft$archive_identification,
      file_size: amt$file_length,
      last_release_date_time: ost$date_time,
      last_retrieval_status: pft$retrieval_status,
      modification_date_time: ost$date_time,
      release_candidate: pft$release_candidate,
      reserved_archive_array_entry_sp: array [1 .. 48] of boolean,
    recend;

*copyc amt$file_length
*copyc ost$date_time
*copyc pft$archive_entry_version
*copyc pft$archive_identification
*copyc pft$archive_index
*copyc pft$release_candidate
*copyc pft$retrieval_status
