
  TYPE
    pft$archive_list = array [1 .. * ] of pft$physical_archive;

*copyc pft$physical_archive
