
  TYPE
    pft$archive_count = 0 .. pfc$maximum_archive_count;

*copyc pfc$maximum_archive_count
