
  TYPE
    pft$archive_index = 1 .. pfc$maximum_archive_count;

*copyc pfc$maximum_archive_count
