
  PROCEDURE [XREF] pfp$sort_object_list
    (    p_object_list: {input} ^pft$object_list;
         p_new_object_list: {i/o} ^pft$object_list;
     VAR object_list_descriptor: {i/o} pft$object_list_descriptor);

?? PUSH (LISTEXT := ON) ??
*copyc pft$object_list
*copyc pft$object_list_descriptor
?? POP ??
