
  PROCEDURE [INLINE] pfp$locate_specific_cycle
    (    p_cycle_list: {input} ^pft$cycle_list;
         cycle_number: fst$cycle_number;
     VAR p_physical_cycle: {output} ^pft$physical_cycle);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??

    VAR
      cycle_index: pft$cycle_index;

    IF p_cycle_list <> NIL THEN
      FOR cycle_index := 1 TO UPPERBOUND (p_cycle_list^) DO
        IF (p_cycle_list^ [cycle_index].cycle_entry.entry_type = pfc$normal_cycle_entry)
{     } AND (p_cycle_list^ [cycle_index].cycle_entry.cycle_number = cycle_number) THEN
          p_physical_cycle := ^p_cycle_list^ [cycle_index];
          RETURN; {----->
        IFEND;
      FOREND;
    IFEND;

    p_physical_cycle := NIL;

  PROCEND pfp$locate_specific_cycle;

*copyc fst$cycle_number
*copyc pft$cycle_index
*copyc pft$cycle_list
*copyc pft$physical_cycle
?? POP ??
