
  PROCEDURE [XREF] pup$check_cycle_inclusion
    (    catalog_header: put$catalog_header;
         cycle_entry: put$entry;
         cycle_array: pft$cycle_array_version_2;
         cycle_array_index: integer;
     VAR cycle_included: boolean;
     VAR action_descriptor: put$action_descriptor);

?? PUSH (LISTEXT := ON) ??
*copyc pud$hierarchy_list
*copyc pud$list_options
*copyc pft$cycle_array_version_2
?? POP ??
