
  PROCEDURE [XREF] pfp$find_cycle_entry
    (    p_cycle_array: pft$p_cycle_array;
         cycle_selector: pft$cycle_selector;
     VAR cycle_index: pft$array_index;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc pfe$error_condition_codes
*copyc pfe$internal_error_conditions
*copyc ost$status
*copyc pft$array_index
*copyc pft$cycle_selector
*copyc pft$p_cycle_array
?? POP ??
