
  PROCEDURE [XREF] pfp$access_next_object
    (    p_object_list: pft$p_object_list;
         next_object_name: pft$name;
         permit_entry: pft$permit_entry;
         authority: pft$authority;
         p_catalog_file: pft$p_catalog_file;
     VAR p_next_object: pft$p_object;
     VAR new_permit_entry: pft$permit_entry);

?? PUSH (LISTEXT := ON) ??
*copyc pft$authority
*copyc pft$name
*copyc pft$p_catalog_file
*copyc pft$p_object
*copyc pft$p_object_list
*copyc pft$permit_entry
?? POP ??
