
  PROCEDURE [XREF] pfp$locate_object
    (    object_name: pft$name;
         valid_objects: pft$object_selections;
         object_list_descriptor: pft$object_list_descriptor;
     VAR p_object: {output} ^pft$physical_object);

?? PUSH (LISTEXT := ON) ??
*copyc pft$name
*copyc pft$object_list_descriptor
*copyc pft$object_selections
*copyc pft$physical_object
?? POP ??
