
  PROCEDURE [XREF] pfp$clear_cycle_attachments
    (    p_path: ^pft$complete_path;
         p_catalog_file: {i^/o^} ^pft$catalog_file;
         p_physical_cycle: {i^/o^} ^pft$physical_cycle);

?? PUSH (LISTEXT := ON) ??
*copyc pft$catalog_file
*copyc pft$complete_path
*copyc pft$physical_cycle
?? POP ??
