
  PROCEDURE [XREF] pfp$access_last_object
    (    path: pft$complete_path;
         authority: pft$authority;
         valid_objects: pft$object_selections;
     VAR catalog_locator: {i/o} pft$catalog_locator;
     VAR permit_entry: {i/o} pft$permit_entry;
     VAR p_object: {output} pft$p_object;
     VAR internal_name: pft$internal_name;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc pft$authority
*copyc pft$catalog_locator
*copyc pft$complete_path
*copyc pft$internal_name
*copyc pft$object_selections
*copyc pft$p_object
*copyc pft$permit_entry
?? POP ??
