
  TYPE
    pft$object_index = 1 .. pfc$maximum_object_count;

*copyc pfc$maximum_object_count
